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

Ответ:

Объяснение:

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.