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

var

   a, b: integer;

function nod(a, b: integer): integer;

begin

   while a * b lt;gt; 0 do

       if a gt; b then

           a := a mod b

       else

           b := b mod a;

   nod := a + b;

end;

begin

   readln(a, b);

   write('NOK = ', a * b / nod(a, b));

end.