Доброго времени Суток!
Недавно мне задали лабу :
Найти наибольший общий делитель трех натуральных чисел,
использовать функции.
Подскажите пожалуйста алгоритм поиска.
Зараннее спасибо.

НОД(a, b, c)= НОД(НОД(a, b), c)

Вот НОД для двух чисел

Program Example_11;
Var x, y: Integer;
Begin
Writeln('Введите два числа');
Readln(x,y); {вводим два целых числа}
Repeat
If x>y Then x:=x Mod y
Else y:=y Mod x;
Until (x=0) Or (y=0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОД=', x+y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
Readln;
End.

Спасибо, volvo. Я случайно =)

WhiteFang, проверяй программы перед выкладыванием, 1000 раз говорилось... Ты Repeat забыл...

Автору -
НОД для 10 чисел
Наибольший общий делитель
(в смысле, пользуемся поиском)

спасибо, очень помогло!))