Вывести значение функции на отрезке от a до b с шагом d. числа a, b, d вводятся с клавиатуры. программу составьте, используя цикл с предусловием. turbo pascal; f(x)= x^2+1/x-4.

Var 
   a, b, d, y, x, x0: real;
begin 
введите границы отрезка: '); 
   readln(a, b); 
введите шаг: '); 
   readln(d); 
   y := sqr(x) + 1 / (x - 4); 
   x0 := a; 
   while (x0 <= b) do  
   begin   
      if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else      
         writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));   
      x0 := x0 + d; 
   end;
   readln;
end.