Найти наименьшее общее кратное двух заданных натуральных чисел

var
 x, y: integer;
 
function NOD(x, y: integer): integer;
begin
 if x<>0 then NOD:=NOD(y mod x, x) 
  else NOD:=y;
end;
 
function NOK(x, y: integer): integer;
begin
 NOK:=(x div NOD(x,y))*y;
end;
 
begin
 read(x, y);
 write(NOK(x, y));
end.

uses crt;
var a,b:longint;
function NOD(x,y:longint):longint;
begin
if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
end;
function NOK(x,y:longint):longint;
begin
NOK:= (x div NOD(x,y)) * y;
end;
begin
Write('Введите a и b: ');
Readln(a,b);
Writeln('НОД ',a,' и ',b,' = ', NOD(a,b));
Writeln('НОК ',a,' и ',b,' = ', NOK(a,b));
End.

program jhggd;
var A, B, i, c,l,x: integer;h: real;
begin
writeln('Введите целые неотрицательные числа A и B:');
readln(A, B);
f A >= B then x := A else x :=B;
for i := 1 to x do 
if (A mod i = 0) and (B mod i =0) then c:=1;
writeln ('НОД равен ',c);
writeln ('Из теории чисел известно, что НОК(А,В) связан с НОД(А,В) следующим образом: НОК(А,В)=(А*В)/НОД(А,В)');
l:= A*B;
h:= l/c;
writeln ('Сдевовательно,НОК равен ', l/c);
end.

program jhggd;
 
var
  A, B, i, c, l, x: integer;
  h: real;
 
begin
  writeln('Введите целые неотрицательные числа A и B:');
  readln(A, B);
  if A >= B then 
    x := A 
  else 
    x := B;
  for i := 1 to x do 
    if (A mod i = 0) and (B mod i = 0) then 
      c := 1;
  writeln('НОД равен ', c);
  writeln('Из теории чисел известно, что НОК(А,В) связан с НОД(А,В) следующим образом: НОК(А,В)=(А*В)/НОД(А,В)');
  l := A * B;
  h := l / c;
  writeln('Следовательно,НОК равен ', l / c);
end.