Question

Помогите пожалуйста! По информатике. Срочно!!

Answer 1

Program esep..;
Var x,y:real;
Begin
Writeln('x...');
Read(x);
If x<2 then y:=sqr(x+ln(sin(x))/sqr(x)else
Y:=4x+sqrt(cos(sqr(x)));
Write('y=',y);
Read(x);
End