Вычислить значение кубического корня с точностью eps с использованием итерационной формулы Ньютона - Turbo Pascal

Формулировка задачи:

Вычислите значение кубического корня с точностью EPS с использованием итерационной формулы Ньютона: Вычисления производить пока |Y_i – Y_i-1| не станет меньше EPS. Определите количество итераций, за которое достигается Ребят помогите срочно нужно, заранее спасибо!

Решение задачи: «Вычислить значение кубического корня с точностью eps с использованием итерационной формулы Ньютона»

Листинг программы

var x, y, yi, eps: double;
    n: integer;
 
begin
  repeat
    write('eps > 0;  eps = ');
    readln(eps)
  until eps > 0;
  write('x = ');
  readln(x);
  yi := 1;
  n := 0;
  repeat
    inc(n);
    y := yi;
    yi := (2 * y + x / y / y) / 3
  until abs(y - yi) < eps;
  write('sqrt[3](x) = ', yi, ', iteration: ', n);
  readln
end.

Объяснение кода листинга программы

Создаются переменные x, y, yi и eps типа double. Переменная n является целочисленной.
В цикле repeat-until выводится запрос на ввод значения eps, пока eps больше 0.
Запрашивается значение переменной x.
Переменная yi инициализируется единицей, а переменная n - нулем.
В цикле repeat-until выполняется итерация, пока abs(y - yi) меньше eps.
На каждой итерации увеличивается значение переменной n.
Значение переменной y обновляется как yi (2*y + x/y/y) / 3.
Пока y и yi не отличаются друг от друга на достаточной точности (т.е. их абсолютное отличие меньше eps), выполняются итерации.
По окончании цикла выводится результат: значение кубического корня (sqrt3) и количество итераций.
Программа завершается, ожидая ввода пользователем.