Задача на языке Pascal. Выполнить через while
Для функции F(x)= найти и вывести на экран все значения в интервале [-1,8,+2,1] (шаг +0,1) [-1,+1] (шаг +0,05)

Free Pascal

uses math;

var

 x, y : double;

 i :  integer;

begin

 i:=-18;

 while i <= 21 do begin

   x:=i/10;

   if x<>0 then begin

     y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);

     Writeln('f[',x:1:1,']=',y:4:4);

   end

   else

     Writeln('f[',x:1:1,']= решения нет, деление на 0');

   inc(i);

 end;

 writeln();

 i:=-100;

 while i<=100 do begin

   x:=i/100;

   if x<>0 then begin

     y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);

     Writeln('f[',x:2:2,']=',y:4:4);

   end

   else

     Writeln('f[',x:2:2,']= решения нет, деление на 0');

   inc(i,5)

 end;

end.