function y(x:real):real;
begin
y:=5*exp(2*ln(abs(x)))-8*x+20;
end;
var x:real;
writeln('Введите x');
readln(x);
writeln(y(x):5:5);
end.
Объяснение:
