Var
n,i,a1,a2,maxS,k12,k6:integer;
Begin
      (maxS,k6) := (0,0);
      readln(n);
      readln(a1);
      for i:=2 to n do
      begin
          if (a1 mod 12 = 0) then
          else if (a1 mod 3 = 0) and (a1 mod 2 = 0) then k6:=max(k6,a1);
          readln(a2);
          if (a2 mod 12 = 0) then
          else if (a2 mod 3 = 0) and (a2 mod 2 = 0) then maxS:=max(maxS,k6 + a2);
          a1:=a2;
      end;
      writeln;
      writeln(maxS);
End.