НОК

Требуется написать программу, определяющую наименьшее общее кратное (НОК) чисел a и b.

Входные данные
В единственной строке входного файла INPUT.TXT записаны два натуральных числа А и В через пробел, не превышающих 46340.

Выходные данные
В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — НОК чисел А и В.

Примеры

№	INPUT.TXT	OUTPUT.TXT
1	36 27	108
2	39 65	195

Решение

var     

n,m,a,b,p:integer;

f,f1:text;

begin

assign(f,'input.txt');

    reset(f);

     assign(f1,'output.txt');

     rewrite(f1);

    readln(f,a,b);p:=a*b;

while a*b > 0 do

  if a >= b then a := a mod b else b := b mod a; 

m:=a+b;writeln(a,' ',b,' ',m);

n:=p div m;write(n);

write(f1,n);

close(f);

close(f1);

end.