Наибольший общий делитель (НОД) двух или нескольких чисел - это наибольшее число, на которое делятся все заданные числа. Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию. Паскаль ABC

Program zz1;

Var a, b:integer; / / задаем переменные целого типа

Function Nod (a, b:integer) : integer; / / вспомогательный алгоритм

Begin

While ab do / / организуем цикл, пока исходные два числа не равны между собой

if a>b / / проверяем условие, если первое число больше второго

then a:=a-b / / то, от первого отнимаем второе

else b:=b-a; / / иначе, от второго отнимаем первое

Nod:=a; / / в связи с тем, что по окончании цикла два числа сравняются, ответом является любое из них

End;

begin

write (' Введите два числа '); / / вводим с клавиатуры заданные числа

readln (a, b);

writeln (' НОД двух исходных чисел = ', Nod (a, b));

end.