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

var     a, b, d, y, x, x0: real;begin     writeln('Пожалуйста, введите границы отрезка: ');     readln(a, b);     writeln('Пожалуйста, введите шаг: ');     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.