Question

Pascal. Вводится 2 натуральных числа. Вывести их НОК.
Помогите пожалуйста!

Answer 1

var
a, b, nok: integer;
begin
readln (a, b);
nok:=(a*b);
while a<>b do
begin
if a>b then a:=a-b else b:=b-a;
end;
nok:=nok div a;
write (nok);
end.