Составить алгоритм и программу вывода на экран таблицы значений y: y=x^2+1 для всех значений x от 0 до 2 с интервалом 0,25.

Var
  x:real;
begin
  x:=0;
  while x<=2.0001 do begin
    Writeln('x=',x:5:2,'   y=',sqr(x)+1:0:4);
    x:=x+0.25
  end
end.

Результат выполнения программы:
x= 0.00   y=1.0000
x= 0.25   y=1.0625
x= 0.50   y=1.2500
x= 0.75   y=1.5625
x= 1.00   y=2.0000
x= 1.25   y=2.5625
x= 1.50   y=3.2500
x= 1.75   y=4.0625
x= 2.00   y=5.0000