Найти первый член отрицательной последовательности - Turbo Pascal

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

Дано действительное число b>0. Псоледовательность a₁,a₂... ,образована по следующему закону a₁=b, a_i=a_i-1 - 1/(i), (i=2,3..). Найти первый отрицательный член последовательности.

Решение задачи: «Найти первый член отрицательной последовательности»

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

uses crt;
var b,a1,ai:real;
    i:longint;
begin
clrscr;
repeat
write('Введите положительное число b=');
readln(b);
until b>0;
a1:=b;
ai:=a1-1/2;
i:=2;
while ai>=0 do
 begin
  i:=i+1;
  a1:=ai;
  ai:=a1-1/i;
 end;
write(ai:0:10);
readln
end.

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

В первой строке используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменные b, a1 и ai имеют тип real, что означает, что они могут хранить числа с плавающей точкой.
Переменная i имеет тип longint, что означает, что она может хранить целые числа.
Строка clrscr очищает экран перед началом ввода.
В цикле repeat-until запрашивается ввод положительного числа b. Цикл продолжается до тех пор, пока b больше 0.
После ввода числа b, переменная a1 присваивается значению b.
Затем переменная ai вычисляется как a1 минус 1/2.
Переменная i устанавливается равной 2.
Затем входит в цикл while, который продолжается до тех пор, пока ai не станет отрицательным.
Внутри цикла переменная i увеличивается на 1.
Переменная a1 обновляется, чтобы хранить значение ai минус 1/i.
После выхода из цикла while, выводится значение переменной ai.
Строка readln используется для чтения ввода пользователя.
Программа заканчивается, и управление передается пользователю.