Паскаль вычислить значение функции y=sqrt(x)+1 на отрезке [a,b] с шагом hю результаты вывести в виде таблицы.

Var
  a, b, h : real;
begin
  write('a, b, h: ');
  read(a, b, h);
  while a <= b do
  begin
    writeln('f(', a, ') = ', sqrt(a) + 1);
    a := a + h;
  end;
end.