Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу:

А * В = НОД (А, В) * НОК (А, В).

var a, b, c, d, i, n : integer;

procedure swap (a, b : integer; c, d : integer) ;

begin

if a>b then begin c:=a; d:=a; end

else begin c:=b; d:=a; end;

end;

begin

read (a, b) ;

swap (a, b, a, b) ;

for i:=1 to a do if (a mod i=0) and (b mod i=0) then c:=i;

write (a*b/c) ;

end.