Задача, Наименьший делитель.. . Опции

[Casual]

Есть задача: наибольший делитель 3 чисел.

Program NOD3;
var a, b, c:integer;
function NOD(a:integer; b:integer):integer;
begin
while(a<>0) and (b<>0) do if a>=b then a:=a mod b else b:=b mod a;
NOD:=a+b;
end;
begin
writeln('vvedite 3 chisla');
readln(a, b, c);
NOD(a,b);
writeln('NOD=',NOD(NOD(a,b),c));
readln;
end.

теперь нужно наити НАИМЕНЬШИЙ общий делитель 3 чисел a,b,c. Как это сделать?

Сообщение отредактировано: Casual - 13.05.2008 16:06

[Casual]

Если в мою программу ввести 3 числа, например, 128, 64, 32 выдает ответ 32. А мне нужно что бы ответ был 2(в данном случае)