Написать код программы с использованием цикла while на PascalABC.
Определить все значения [tex] \alpha = \sqrt{1+ x^{2} }+t [/tex] при условии [tex]1,909 \leq x \leq 6,23 [/tex] [tex] \alpha x=1,005 [/tex]  [tex]t=10[/tex] Δ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.