Найти НОД трех чисел - Pascal ABC

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

Дано 3 числа (а, в, с). Нужно найти нод (а,в), нод(в,с) и нод(а,с). А затем сравнить и вывести на экран самое большое нод.

Решение задачи: «Найти НОД трех чисел»

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

function nod(x, y: Integer): Integer;
begin
  if x = 0 then
    nod := y
  else
    nod := nod(y mod x, x)
end;
 
var
  a, b, c, t, max: integer;
 
begin
  write('Введите 3 числа (a, b, c): ');
  readln(a, b, c);
  max := nod(a, b);
  t := nod(b, c);
  if t > max then max := t;
  t := nod(a, c);
  if t > max then max := t;
  writeln(max);
end.

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

В функции nod определены две переменные x и y, которые являются целочисленными типами данных.
В условии if x = 0 then проверяется, равно ли значение переменной x нулю. Если это так, то значение переменной nod устанавливается равным значению переменной y.
В противном случае, когда значение x не равно нулю, функция вызывает саму себя, передавая в качестве аргументов остаток от деления y на x и x само по себе.
В переменной max хранится наибольший общий делитель из трех чисел a, b и c.
В цикле var объявлены четыре переменные a, b, c и t, которые также являются целочисленными типами данных.
С помощью функции readln считываются три числа от пользователя.
Значение переменной max устанавливается равным результату вызова функции nod с аргументами a и b.
Затем, значение переменной t устанавливается равным результату вызова функции nod с аргументами b и c.
Если значение t больше значения max, то значение max устанавливается равным значению t.
Затем, выполняется еще один вызов функции nod с аргументами a и c, и если результат этого вызова больше значения max, то значение max снова устанавливается равным значению t.
В конце программы выводится значение переменной max, которое является наибольшим общим делителем из трех чисел a, b и c.