Протабулировать функцию на интервале - Turbo Pascal (28956)

Формулировка задачи:

Протабулировать функцию на интервале : -0.2≤x≤0.8 с шагом h=0.1: Помогите пожалуйста, буду очень благодарен и признателен

Решение задачи: «Протабулировать функцию на интервале»

Листинг программы

x:=-0.2;
while x<=0.85 do begin
  d:=Sqr(Sqr(x))/2+Sqr(Sin(x));
  if Abs(d)>1e-7
  then WriteLn('x=',x:4:1,' y=',(1+Cos(Sqr(x)-1))/d:8:4);
  else WriteLn('x=',x:4:1,' y не определён');
  x:=x+0.1;
end;

Объяснение кода листинга программы

x := -0.2;
while x <= 0.85 do begin
d := Sqr(Sqr(x))/2 + Sqr(Sin(x));
if Abs(d) > 1e-7 then
WriteLn('x=', x:4:1, 'y=', (1 + Cos(Sqr(x) - 1))/d:8:4);
else
WriteLn('x=', x:4:1, 'y не определён');
x := x + 0.1;
end;