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

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

Дано положительное число E, и последовательность а₁, а₂, а₃ ..., образованная по следующему закону: Найти первый член последовательности, для которого выполняется условие: abs(a_n-a_n-1)<E. Вывести на экран a_n и n.

закон: (1-1/2),(1-1/3)...(1-/(1+i))

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

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

var
a, b, E:real;
n:integer;
begin
writeln('Введите Е');
readln(E);
n := 3;
b := 1/2;
a := 2/3;
while abs(a - b) >= E do
    begin
    b := a;
    inc(n);
    a := 1 - 1/n;
    end;
writeln('n = ', n - 1, 'an =  ', a);
end.

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

В начале объявляются переменные: a, b, E и n, которые будут использоваться в коде.
Затем происходит чтение значения переменной E с помощью функции readln.
Переменная n инициализируется значением 3.
Далее присваиваются значения переменным b и a: b = 1/2 и a = 2/3.
Затем начинается цикл while, который будет выполняться до тех пор, пока абсолютное значение разности переменных a и b не превысит значение переменной E.
Внутри цикла переменная b присваивается значению переменной a, а переменная n увеличивается на 1.
Значение переменной a обновляется: a = 1 - 1/n.
После выхода из цикла переменные a и b будут содержать значения, удовлетворяющие условию.
Выводится значение переменной n и значение переменной a.