var a,b : integer;
function bcnn(x,y : integer) : integer;
var m,n,r,ucln : integer;
begin clrscr;
m:=x; n:=y;
while n <> 0 do begin
r:=m mod n;
m:=n;
n:=r;
end;
ucln:=m;
bcnn:=(x*y) div ucln; end;
begin clrscr;
write('Nhap a:'); readln(a);
write('Nhap b:'); readln(b);
write('Boi chung nho nhat cua ',a,' va ',b,' la :', bcnn(a,b));
readln
end.