Найти двойной факториал - PascalABC.NET

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

Дано целое число N (> 0). Найти двойной факториал N: N!! = N•(N–2)•(N–4)•… (последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число. Желательно использовать While.

Решение задачи: «Найти двойной факториал»

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

/// Возвращает двойной факториал числа n.
Function DoubleFactorial(n: UInt64): UInt64;
Begin
  If n < 2 then Result := 1 else Result := n * DoubleFactorial(n - 2);
End;

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

В функции DoubleFactorial(n: UInt64) происходит вычисление двойного факториала числа n.
Если n < 2, то результат вычисления равен 1.
Если n >= 2, то результат вычисления равен произведению n и DoubleFactorial(n-2).
DoubleFactorial(n-2) вызывается рекурсивно для вычисления факториала числа (n-2).
Результат вычисления функции возвращается в переменной Result.