Pascal:
var x,y: real;
begin
write('Введите значение x='); read(x);
y:=x*x+5.8*exp(-x);
writeln(y);
end.
