Рассчитать суммы ряда для первых 5 членов - Turbo Pascal

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

рассчитать суммы ряда для первых 5 членов 1/(i(i+a))

Решение задачи: «Рассчитать суммы ряда для первых 5 членов»

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

var
  i:integer;
  a,s:real;
begin
  write('a=');readln(a);
  for i:=1 to 5 do if i+a<>0 then s:=s+1/(i*(i+a)) else 
    begin 
      writeln('Значение не определено');
      halt;
    end;
  writeln('S=',s:0:4);
end.

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

В данном коде на Turbo Pascal происходит следующее:

Объявляются переменные i, a и s типа integer, real и real соответственно.
Выводится сообщение «a=», после чего считывается значение переменной a с помощью функции readln().
Запускается цикл for, который выполняется от 1 до 5 (не включая 5).
Внутри цикла проверяется условие if i+a<>0 then s:=s+1/(i*(i+a)) - если оно истинно, то есть если i+a не равно нулю, то переменная s увеличивается на 1/((i+a)(i+a+a))).
Если условие не выполняется, то выводится сообщение «Значение не определено» и программа завершается с помощью команды halt.
По окончании цикла выводится значение переменной s в формате «S=», а затем значение s с точностью до 4 знаков после запятой.