Question

Где ошибка и как правильно записать?

Answer 1

Var x,y:real;
begin
write('x = ');
readln(x);
if x<0
 then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1))
 else y:=x*x+4*cos(x);
writeln('y = ',y:5:2);
end.

Пример 1:
x = -0.5
y = 2.66

Пример 2:
x = 3.8
y = 11.28