Найти сумму дробей - Pascal

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

Здравствуйте. Помогите написать программу, пожалуйста. Программа вычисляет сумму дробей вида До того момента, когда слагаемое станет меньше некоторого заранее заданного малого значения. Например, значения 10^-7.

Решение задачи: «Найти сумму дробей»

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

var n: longint;
    a, s, eps: real;
begin
  repeat
    write('eps > 0;  eps = ');
    readln(eps)
  until eps > 0;
  a := 1;
  s := a;
  n := 1;
  while a >= eps do
    begin
      inc(n);
      a := 1 / n / n;
      s := s + a
    end;
  write('S = ', s:0:14);
  readln
end.

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

Переменная n инициализируется как longint, что означает, что она может содержать только целочисленные значения.
Переменные a, s и eps инициализируются как real, что означает, что они могут содержать дробные значения.
В цикле repeat-until проверяется, что eps больше 0. Это условие выполняется до тех пор, пока не будет заданно значение eps, которое больше 0.
Переменная a инициализируется как 1.
Переменная s инициализируется как a.
Переменная n инициализируется как 1.
Запускается цикл while, который продолжается до тех пор, пока a больше или равно eps.
Внутри цикла переменная a инкрементируется на 1.
Переменная s инкрементируется на a.
Переменная n инкрементируется на 1.
После выхода из цикла while выводится значение переменной s.
Программа принимает ввод от пользователя и считывает его.
Программа завершается.