uses crt;
var x,f,mx:real;
begin
clrscr;
writeln('Функция F(x)=e^x-x^3 на интервале [0,2]:');
x:=0;
mx:=exp(x)-x*x*x;
while x<=2 do
begin
f:=exp(x)-x*x*x;
if f>mx then mx:=f;
x:=x+0.1;
end;
writeln('Максимум=',mx:0:3);
writeln;
writeln('Функция F(x)=e^x-2x^2 на интервале [-1,1]:');
x:=-1;
mx:=exp(x)-2*x*x;
while x<=1 do
begin
f:=exp(x)-2*x*x;
if f>mx then mx:=f;
x:=x+0.1;
end;
writeln('Максимум=',mx:0:3);
readln
end.