Даны естественные числа m, n. Получить все кратные им числа, наименьшие

program zz1;

var n, m, i:integer; // задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры 1-ое число

read(m);  

write(введите 2-ое число);  // вводим с клавиатуры 2-ое число

read(n);

for i:=1 to m * n do // организуем цикл, в котором переберем все числа от единицы до творения 2-ух данных чисел

if (i mod n = 0) and (i mod m = 0) // проверяем, если еще одно число из цикла является кратным n и сразу кратным m, то

then write( , i); // выводим ответ

end.