uses crt;
var a,b,c : integer;
function bcnn(x,y : integer) : integer;
var n,m,i : integer;
begin clrscr;
m:=x; n:=y;
while n<>0 do begin
i:=m mod n;
m:=n; n:=i; end;
bcnn:=(x*y) div m;
end;
function bc(x,y,z : integer): integer;
var n,m,i : integer;
begin
m:=bcnn(x,y); n:=z;
while n<>0 do begin
i:=m mod n;
m:=n; n:=i; end;
bc:=(x*y*z) div m;
end;
begin clrscr;
write('Nhap ba so :'); readln(a,b,c);
write(bc(a,b,c));
readln
end.