Написать код программы с использованием цикла while на pascalabc. определить все значения при условии δx=1,005 (шаг)

Const
  x0 = 1.909;
  x1 = 6.23;
  step = 1.005;
  t=10;
var
  i: real;
begin
  i:=0;
  while i<(x1-x0)/step do
  begin
    writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
    i:=i+step;
  end;
  if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)
end.