nn = gets.to_i
pp = gets.split.map(&:to_i)

cnt = 0
fir=0
sec=0
(nn-1).times do |i|
  fir = pp[i]
  (i+1).upto(nn-1) do |j|
    if j==i+1
      if pp[j] > fir
        sec = fir
        fir = pp[j]
      else
        sec = pp[j]
      end
    else
      if pp[j] > fir
        sec = fir
        fir = pp[j]
      elsif pp[j] > sec
        sec = pp[j]
      end
    end
    cnt += sec
    #puts "i:#{i},j:#{j},cnt:#{cnt}"
  end
end
puts cnt