Ответ:

var

 x:= 0.0;

 y: real;

 step:= 0.1;

begin

 while x<=(Pi/2) do

 begin

   y:=Exp(Sin(x))*Cos(x);

   writeln('y = ',y:0:2,' x= ',x);

   x:=x+step;

 end;

end.

Объяснение: