Составить метод и программку определения величайшего общего делителя (НОД)2-ух естественных чисел!!

Program zz1;
var M, N: integer; //задаем переменные целого типа
begin
writeln(Введите M и N); //вводим с клавиатуры два заданных числа через пробел
readln(M, N);
while M lt;gt; N do //организуем цикл, пока начальные два числа не одинаковы меж собой
begin
if Mgt;N // проверяем условие, если 1-ое число больше второго
then M:=M - N // то, от первого отнимаем 2-ое
else N:=N - M //по другому, от второго отнимаем 1-ое
end;
write(Н0Д = ,M); //в связи с тем, что по окончании цикла два числа сравняются, ответом является хоть какое из их
end.