Напишите программу( в паскале авс), которая находит НОК (наименьшее общее кратное) двух чисел, введённых с клавиатуры.

Предыдущий
вопрос Следующий
вопрос

program FindLCM;

va
num1, num2, LCM, i: Integer;

begi
writeln('Enter two numbers:')
readln(num1, num2);

if (num1 > num2) the
LCM := num
els
LCM := num2;

while true d
begi
if (LCM mod num1 = 0) and (LCM mod num2 = 0) the
begi
writeln('The Least Common Multiple of ', num1, ' and ', num2, ' is: ', LCM)
break
end
LCM := LCM + 1
end
end.