Код программы:
var x,y:real;
begin
writeln('Введите x');
readln(x);
if (x >= 2) then
y := 2.4*x*x*x + 3*x
else
y := -14*cos(x)+ 2;
writeln('y = ', y);
end.
