Найти НОД максимального элемента массива и количество элементов. Опции

[Zzoyberg]

Пользователь вводит размерность и элементы одномерного массива натуральных чисел. Найти НОД максимального элемента массива и количество элементов в массиве. Вспомогательный алгоритм необходимо оформить в виде рекурсивной процедуры или функции в отдельный модуль.

[potter-by]

В математике НОД ищется для двух и более чисел. По поводу количества элемента массива: если пользователь вводит размерность одномерного массива, то и количество элементов равно его размерности.
Рекурсивный алгоритм поиска НОД:

function nod(m, n: integer): integer;
    var mm: integer;
    begin
        mm := m mod n;
        if mm = 0 then
            nod := n
        else
            nod := nod (n, mm)
    end;

Модуль создайте самостоятельно