На вход подаются два целых положительных числа; каждое число вводится с новой строки. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида:
НОД(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.