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

Program zz1;

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

begin

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

readln (M, N);

a:=m; b:=n;

while MN do / /организуем цикл, пока исходные два числа не равны между собой

begin

if M>N / / проверяем условие, если первое число больше второго

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

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

end;

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

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

end.