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

program zz1;

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

begin

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

read (m);

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

read (n);

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

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

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

end.