Найти первый член последовательности, для которого выполняется условие - PascalABC.NET

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

Дано действительное число ε (ε>0). Последовательность a1, a2, … образована по следующему закону: a(n)=(1-1/2)(1-1/3)...(1-1/n+1); Найти первый член аn (), для которого выполнено условие |a(n)-a(n-1)|< ε. Помогите пожалуйста с решением . Буду очень признателен .

Решение задачи: «Найти первый член последовательности, для которого выполняется условие»

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

var n:integer;
    e,a1,an:real;
begin
repeat
write('e>0 e=');
readln(e);
until e>0;
a1:=0;
an:=1;
n:=1;
repeat
n:=n+1;
a1:=an;
an:=an*(1-1/n);
until abs(an-a1)<e;
write('an=',an:0:6,' |an-a1|=',abs(an-a1):0:6)
end.

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

Объявлены переменные n, e, a1, an типа integer и real соответственно.
Запускается цикл repeat-until, который будет выполняться до тех пор, пока значение переменной e больше нуля.
Внутри цикла задаются начальные значения переменных a1 и an равными 0 и 1 соответственно.
Запускается второй цикл repeat-until, который будет выполняться до тех пор, пока значение переменной abs(an-a1) меньше заданного значения переменной e.
Внутри цикла увеличивается значение переменной n на 1.
Значение переменной a1 присваивается значение переменной an.
Значение переменной an вычисляется как an = an*(1-1/n).
Выводится значение переменной an с точностью до 6 знаков после запятой и значение переменной abs(an-a1) с точностью до 6 знаков после запятой.