uses crt;
var i,n,b:longint; a:array[1..1000000]of longint;
function bcnn(a,b:longint):longint;
begin 
   bcnn:=a;
   while bcnn mod b<>0 do bcnn:=bcnn+a;
end;
begin 
clrscr;
   write('Nhap vao so phan tu: ');readln(n);
   b:=1;
   for i:=1 to n do 
      begin 
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         b:=bcnn(a[i],b);
      end;
   writeln(b);
readln
end.

program Hello;
uses crt;
var n,i:longint;
    x,bcnn:Int64;
function gcd(a, b: Int64): Int64;
var
  t: Int64;
begin
  while b <> 0 do
  begin
    t := b;
    b := a mod b;
    a := t;
  end;
  gcd:= a;
end;
begin
    clrscr;
    readln(n);
    bcnn:= 1;
    for i:= 1 to n do
        begin
            read(x);
            bcnn:= bcnn * (x div gcd(x, bcnn));
        end;
    writeln(bcnn);
readln;
readln;
end.