a = gets.to_i
b = gets.split(" ").map(&:to_i)
result = 0

(1..a).each do |i|
  ((i + 1)..a).each do |j|
    array = b.slice((i - 1)..(j - 1)).sort
    result += array[array.length - 2]
  end
end

puts result