НОК

 Требуется написать программу, определяющую наименьшее общее кратное (НОК) чисел 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.