Циклические вычислительные процессы (Pascal)

[Druws]

Совсем не дружу с информатикой, буду очень благодарен

[Serge_Bliznykov]

x:=0.1;
dx:=0.2;
while x<=1.3 do begin
  y:=364*sqr(x)*exp(5*x)/(sqr(x)-1.8*x+1.2);
  if y>1 then
       WriteLn('x=',x:0:2,' y=',y:0:5);
  x:=x+dx;
end;