На вход подаются два целых положительных числа; каждое число вводится с новой строки. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида:
НОД(A, B) = НОД(B, A mod B), если B ≠ 0; НОД(A, 0) = A,
где «mod» обозначает операцию взятия остатка от деления.
uses PT4Exam;
var
a, b: integer;
begin
Task('ExamBegin5');
Read(a, b);
while a <> b do
begin
if a > b then a := a - b
else b := b - a;
end;
Write(a);
end.
