Условие:
Линейные алгоритмы.
Вычислить значение функции при А, В и С – константах (задать значения самостоятельно) и произвольном х (ввести с клавиатуры). Вывести на экран заданные константы в одну строку и результат вычисления в другую строку.
Решение:
var
x, y: real;
begin
write('x = ');
readln(x);
y := Tan(2 * x) - Exp(x);
write('y = '...