Напишите
программу для решения следующей задачи: Даны
натуральные числа m, n.
Получить все кратные им числа, меньшие m*n. Сделать прошу в Pascal

program pr1;var i,m,n:integer;beginreadln(m);readln(n);for i:=1 to m*n-1 do beginif (i mod n = 0) and (i mod m = 0)thenwriteln(i)endend.