Задание 10. Даны натуральные числа m, n

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

Program lab3_10;

Var

i,n,m,w:integer;

begin

write('Введите m=');

readln (m);

write('Введите n=');

readln (n);

For i:=1 to n*m do

if (i mod m=0) and (i mod n=0) then

write(' ',i);

end.