var a,b,a1,b1,r:longint;
beign
readln(a,b);
a1:=a;
b1:=b;
r:=a mod b;
while r<>0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
r:=b;
writeln('UCLN cua 2 so la',r);
writeln("BCNN cua 2 so la', (b1*r) div a1);
writeln('phan so toi gian la', a1 div r/b1 div r);
readln;
end.

nếu dùng cách trừ đi thì thời gian chạy sẽ lâu hơn
nên dùng mod sẽ nhanh hơn rất nhiều

program GiaiP;
uses crt;
var m,n,a,b,r: int64; BCNN: real;
function UCLN(a,b: int64): int64;
begin
 while b<>0 do
 begin
   r:=a mod b;
   a:=b; b:r;
end; UCLN:=a
end;
begin
 clsrcr; readln(m,n);
 a:=m; b:=n; 
 BCNN:=(m*n)/UCLN(a,b);
 writeln('UCLN la:',UCLN(a,b));
 writeln('BCNN la:',BCNN:0:0);
 writeln(m,'/',n,'=',m/UCLN(a,b):0:0,'/',n/UCLN(a,b):0:0);
readln
end.