program boichungnn;

uses crt;

var a,b,x,y,r,us,bs : integer;

begin

clrscr;

write('nhap vao a,b '); readln(a,b);

x:=a ; y:=b;

if a<b then

begin

r:=a; a:=b ; b:=r;

end;

while b>0 do

begin

r:= a mod b;

a:=b;

b:=r;

end;

us:=a;

bs:=(x*y) div us;

writeln('boi chung nho nhat la ',bs);

readln;

end.