Вычислить сумму - Pascal ABC (13281)

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

Вычислить сумму S = 1 *3 + 3 *5 + 5 *7 + … + (2n-1) (2n+1) для заданного n. Заранее Благодарю за помощь

Решение задачи: «Вычислить сумму»

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

function s(n : Word) : UInt64;
begin
  If n = 0 then
    result := 0
  else
    result := (2*n-1)*(2*n+1)+s(n-1);
end;
 
begin
  WriteLn(s(10000));
end.

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

Создается функция s с типом возвращаемого значения UInt64.
В функции проверяется, равен ли аргумент n нулю. Если да, то возвращается 0.
Если нет, то выполняется вычисление суммы:
- n умножается на 2 и на 1, если n четное.
- n умножается на 2, если n нечетное.
- результат умножения увеличивается на s(n-1).
- к результату добавляется 1.
Вызывается функция s с аргументом 10000.
Выводится результат вычисления суммы на экран.