Var ost:array [0..5] of integer = (1000000,100000,100000,100000,100000,1000000);
n,i,a1,a2,minS:integer;
Begin
      minS:= 10000000;
      readln(n);
      readln(a1);
      for i:=2 to n do
      begin
            ost[a1 mod 6] := min(ost[a1 mod 6],a1);
            readln(a2);
            if ((a2 + ost[a1 mod 6]) mod 6 = 0)  then
            else
            minS:=min(minS,a2 + ost[a1 mod 6]);
            a1 := a2;
       end;
       writeln(minS);
End.