Рекурсивная функция: вычислить сумму ряда - Pascal

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

Нужна помощь с написанием программы(Рекурсивная функция).

Решение задачи: «Рекурсивная функция: вычислить сумму ряда»

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

function fact(n:integer):integer;
begin
  if (n = 1) then 
  begin
    fact:= 1;
    exit;
  end;
  fact:= n * fact(n - 1);
end;
 
function sigma(i, n:Integer):real;
var buf:real;
begin
  buf:= i * i * (i + 1) / fact(i);
  if (i mod 2 = 1) then
    buf:= -buf;
  if (i = n) then
  begin
    sigma:= buf;
    exit;
  end;
  sigma:= buf + sigma(i + 1, n);
end;
 
var n:Integer;
    rez:real;
 
begin
  writeln('Введите n:');
  read(n);
  writeln('Искомая сумма: ', sigma(1, n));
end.

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

Объявляется функция fact с одним целочисленным параметром n и возвращаемым значением типа integer.
Внутри функции fact проверяется, если n равно 1, то устанавливается значение для fact равным 1 и происходит выход из функции.
В противном случае переменной fact присваивается значение n умноженное на результат вызова функции fact с аргументом n - 1.
Объявляется функция sigma с двумя целочисленными параметрами i и n и возвращаемым значением типа real.
Внутри функции sigma объявляется переменная buf типа real.
В переменную buf записывается значение i * i * (i + 1) / fact(i).
Если остаток от деления i на 2 равен 1, значение buf умножается на -1.
Проверяется, если i равно n, то устанавливается значение для sigma равным buf и происходит выход из функции.
В противном случае переменной sigma присваивается значение buf плюс результат вызова функции sigma с аргументами i + 1 и n.
Объявляется переменная n типа Integer и переменная rez типа real.
Вводится значение для переменной n.
Выводится результат вызова функции sigma с аргументами 1 и n.