Найти наибольший общий делитель для чисел A, B, C

[DonJew]

Помогите решить задали домой.

Найти наибольший общий делитель трёх натуральных чисел А, В, С.
А = 37; B = 24; C = 10;

Для двух, как бы могу решить, а с трёмя проблема. Нуждаюсь в помощи умных программистов!

[Иден Прайм]

Сообщение от DonJew

а с трёмя проблема

А в чем проблема? Пишите функцию для нахождения НОД двух чисел и затем используйте ее таким образом:

const
  a = 37;
  b = 24;
  c = 10;

function NOD(x, y: integer): integer;
begin
  while (x <> 0) and (y <> 0) do
    if x > y then
      x := x mod y
    else
      y := y mod x;
  NOD := x + y
end;

begin
  WriteLn(NOD(NOD(a, b), c));
  ReadLn
end.