Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел - Pascal ABC

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

Помогите решить.

Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел. Из трёх чисел найти пару чисел с максимальным НОД. (например, 25, 15, 45 НОД(25,15,45)=5, числа 15 и 45 имеют максимальный НОД=15).

Решение задачи: «Найти НОД трёх чисел, используя рекурсивную функцию нахождения НОД двух чисел»

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

Function NOD(a,b : Longint) : Longint;
  Function nd(aa,bb : Longint) : Longint;
  Begin
    If aa mod bb = 0 then nd:=bb else nd:=nd(bb,aa mod bb);
  End;
Begin
  NOD:=a;
  If a<>b then
    If a>b then NOD:=nd(a,b)
      else NOD:=nd(b,a);
End;

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

Создается функция NOD, которая принимает два аргумента типа Longint и возвращает значение типа Longint.
Создается вспомогательная функция nd, которая также принимает два аргумента типа Longint и возвращает значение типа Longint.
В функции nd используется рекурсия для нахождения наибольшего общего делителя двух чисел.
В основной части кода значение переменной a присваивается функции NOD.
Затем проверяется условие a<>b, где b - это второе число.
Если условие истинно, то проверяется, какое из чисел a или b больше.
Если a больше, то вызывается функция nd с аргументами a и b.
Если a меньше или равно b, то вызывается функция nd с аргументами b и a.
Значение, возвращаемое функцией nd, присваивается переменной NOD.
Конец основной части кода.