Даны натуральные числа n и m. Определить их наименьшее общее кратное. Задачу решить на языке Паскаль.

НОК двух чисел.

program nodpr;
var
a,b,a1,b1:integer;
nok:real;
begin
write('Введите два числа ');
readln(a,b);
if (a>0) and (b>0) then
begin
a1:=a;
b1:=b;
while a<>b do
begin
if a>b then a:=a-b else b:=b-a;
end;
nok:=(a1*b1)/a;
writeln('Наименьшее общее кратное = ',nok:3:0);
end;
readln;
end.