Даю 25 баллов, нужно перевести ** язык паскаль и всё))

Question

Даю 25 баллов, нужно перевести на язык паскаль и всё))

---

Answer 1

Ответ:

Объяснение:

var

x,y:real;

begin

readln(x);

y:=power(ArcTan(x),2)+exp(4*abs(x));

writeln('y(',x:4:2,')=',y:6:2);

end.