var v:array[1..1000] of 1..50000;
    sol:array[1..1000] of 1..50000;
    v2:array[1..100000] of 0..1;
    ok:boolean;
    y, i,j,x,k,kkt,aux,s,n,w,ww,www,eee:1..50000;
    f,g:text;


begin
assign(f,'economie.in'); assign(g,'economie.out');
reset(f); rewrite(g);
readln(f,n);

for i:=1 to n do
 begin
readln(f,v[i]);
 end;
ok:=true;
while ok do
begin
ok:=false;
for i:=1 to n-1 do


 if  v[i]>v[i+1] then begin ok:=true; aux:=v[i]; v[i]:=v[i+1]; v[i+1]:=aux;end;

end;
{kkt:=v[n];   s:=1; sol[1]:=v[1]; s:=2; x:=v[1];}
{for y:=1 to kkt do v2[y]:=0;}
{w:=kkt div v[1];}
{for j:=x to w+1 do
   begin
   eee:=(j-x+1)*v[1];
  v2[eee]:=1;
   end;}
{for i:=2 to n do

 if v2[v[i]]=0 then
      begin
      sol[s]:=v[i];
      inc(s);
      ww:=kkt div v[i];
      for j:=x to ww+1  do
       begin
       eee:=(j-x+1)*v[i];
       v2[eee]:=1;
       www:=(kkt div v[i])+1;
       for k:=x to www do
        if v2[k]=1 then
         begin
         eee:=v[i]+k;
         v2[eee]:=1;
         end;
       end;
      end;}

{writeln(g,s-1);
for i:=1 to s-1 do
 writeln(g,sol[i]);}

 close(g); close(f);

end.