uses crt;
var x, y, i, n, ucln, bcnn: longint;
  a: array[1..100] of integer;
function h_ucln(x,y:integer):integer;
begin
 while x<>y do
  if x>y then
   x:=x-y
  else
   y:=y-x;
 h_ucln:=x;
end;
begin
 clrscr;
 readln(n);
 for i:=1 to n do
 read(a[i]);
 ucln:=h_ucln(a[1],a[2]);
 bcnn:=(a[1]*a[2]) div ucln;
 for i:=3 to n do
 begin
  ucln:=h_ucln(bcnn,a[i]);
  bcnn:=(bcnn*a[i]) div ucln;
 end;
 writeln(bcnn);
 readln;
end.

uses crt;
var a: array [1..100] of integer;
    i,n,uc,bc: integer;
Function ucln(a,b: integer):integer;
    begin
        while (a<>b) do
            if a>b then
                a:=a-b
            else
                b:=b-a;
        ucln:=a;
    end;
Function bcnn(a,b: integer): integer;
    begin
        bcnn:= a*b div ucln(a,b);
    end;
Begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    uc:=a[1]; bc:=1;
    for i:=1 to n do
        begin
            uc:=ucln(uc,a[i]);
            bc:=bcnn(bc,a[i]);
        end;
    write(bc);
    readln;
End.