M : = M - N начало да нет M = N Задача: определение наибольшего общего делителя ( НОД ) двух натуральных чисел Задача: определение наибольшего общего делителя ( НОД ) двух натуральных чисел конец ввод M, N вывод M алг ЕВКЛИД цел M, N если M > N ввод M, N нач кон вывод введите M и N то M := M - N иначе N := N - M кв нц кц пока M = N, повторять да нет M > N N : = N - M вывод НОД =, M PROGRAM VAR READLN WRITELN IF THEN ELSE : INTEGER M, N () DOWHILE EVKLID ; ; END. M > N () Введите M и N M N BEGIN ; ; M, N BEGIN END WRITELN() НОД =, M M := M - N N := N - M ;