var x,y,z,t: integer;
bc: longint;
function bcnn(a,b: integer): longint;
var u: integer;
begin
bcnn:=a*b;
while a <> b do if a >b then a := a - b else b := b - a ;
u:=a;
bcnn:=bcnn div u;
end;
begin
writeln('Nhap cac so x,y,z,t:');
write('x = '); readln(x);
write('y = '); readln(y);
write('z = '); readln(z);
write('t = '); readln(t);
bc:=bcnn(bcnn(bcnn(x,y),z),t);
writeln('bcnn la: ',bc);
end.
