import strutils, sequtils
proc getStr: auto = stdin.readLine

let
  N = getStr().parseInt
var
  V = getStr().split.map parseInt
  ans = 0

while V.len != 0:
  case V.len
    of 4: ans += [(V[0] + V[2]), (V[0] + V[3]), (V[1] + V[3])].max
    of 3: ans += [(V[0] + V[2]), V[1]].max
    of 2: ans += [V[0], V[1]].max
    of 1: ans += V[0]
    else:
      if V[0] >= V[1] or V[0] + V[2] >= V[1] + V[3]:
        ans += V[0]
        V.delete 0

  case V.len
    of 0 .. 4: break
    else     : V.delete 0

echo ans