Program ddd; var tg: real; x,f: integer; begin readln (x); tg : = sin(x)/cos(x); if x< =-3.14 then f: =ln(cos*(5*x)-2*x)+1; if x> -3.14 then f: =0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0,1*x)); writeln (f); end.

Как я понял, вам необходимо было исправить ошибки в коде. если это так, то прошу: program ddd; var tg, f: real; x: integer; begin readln (x); tg : = sin(x)/cos(x); if x< =-3.14 then f: =ln(cos(5*x)-2*x)+1; if x> -3.14 then f: =0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x)); writeln (f); end. обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f: =ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). приравнивать переменные одих типов к значению других -- ошибка (f: integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. следовательно, f не может присвоить возвращаемое значение функции ln).

1- красный квадрат 2 - красный треугольник 3 - зеленый квадрат 4 - красный квадрат 5 - зеленый круг