Найти сумму чисел и значение выражения - Pascal ABC

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

1.Найдите сумму чисел 1,1/2,1/3,1/4... больших заданного числа а. 2.Найдите значение выражения

Решение задачи: «Найти сумму чисел и значение выражения»

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

var a,b,s:real;
    i:integer;
begin
write('a=');//чтобы сумма не была 0, вводить маленьое а, меньше 1
readln(a);
s:=0;
i:=1;
b:=1;
while b>a do
 begin
  s:=s+b;
  i:=i+1;
  b:=1/i;
 end;
write('s=',s:0:5);
end.

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

Создаются три переменные: a, b и s, которые имеют тип real.
Создается переменная i, которая имеет тип integer.
Задается начальное значение для переменной s, которое равно 0.
Задается начальное значение для переменной i, которое равно 1.
Задается начальное значение для переменной b, которое равно 1.
Запускается цикл while, который выполняется до тех пор, пока b больше a.
Внутри цикла переменная s увеличивается на значение b, а переменная i увеличивается на 1.
После завершения внутреннего цикла переменная b устанавливается равной 1/i.
Выводится значение переменной s.