Ввести два целых числа и найти их найбольший общий делитель и

Program zz1;

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

begin

    writeln(Введите М и N);  //вводим с клавиатуры два заданных числа через пробел

    readln(M, N);

    a:=m;b:=n;

    while Mlt;gt;N do  //организуем цикл, пока начальные два числа не одинаковы между собой

         begin

              if Mgt;N // проверяем условие, если 1-ое число больше второго

              then M:=M-N // то, от первого отнимаем 2-ое

              else N:=N-M //по другому, от второго отнимаем 1-ое

    end;

    writeln(Н0Д= ,M); //в связи с тем, что по окончании цикла два числа сравняются, ответом является хоть какое из них

   write(Н0K= ,a*b div m);  

end.