Вычисление рекурентного выражения - Turbo Pascal

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

Даны значение x и E определить y

Решение задачи: «Вычисление рекурентного выражения»

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

program mm;
 
var
 x,y,p,eps: real; 
 
begin
   write('Enter X<>0 : ');readln(x);
   write('Enter eps: ');readln(eps);
   p:=1/x;
    repeat
        p:=p/x;     
      y:=y+p;
      until p<=eps;
   writeln('y=:',y);
end.

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

Программа начинается с объявления переменных x, y, p и eps типа real.
Пользователю предлагается ввести значение переменной x, которое не может быть меньше нуля.
Затем пользователю предлагается ввести значение переменной eps, которое должно быть положительным числом.
Значение переменной p инициализируется как 1/x.
Затем в цикле повторяется следующая последовательность действий:
- p пересчитывается как p/x.
- y увеличивается на значение p.
- Пока значение p не станет меньше или равно eps, цикл повторяется.
По завершении цикла выводится значение y.