Module Module1
    Sub main()
        Dim userInput As Long, userInput2 As Object

        ' データの入力
        userInput = Console.ReadLine()
        userInput2 = Split(Console.ReadLine(), " ")

        ' 高い順番から加点していく
        ' 最位のみ1回、以降は2回ずつ加点する

        ' ソート
        Array.Sort(userInput2)
        Array.Reverse(userInput2)

        Dim intIndex As Integer = 0, cocochi As Integer = 0
        Dim total As Long

        For i = 0 To UBound(userInput2) - 1

            total = total + userInput2(cocochi)
            'Console.WriteLine(total)
            If intIndex Mod 2 = 0 Then cocochi = cocochi + 1
            intIndex = intIndex + 1
        Next
        '' 処理結果を返す
        Console.WriteLine(total)
    End Sub
End Module