Imports System

Public Module Module1

    Public Sub Main()

        Dim D as integer = 1

        Dim X as integer = Console.Readline

        Dim E as integer = Console.Readline

        Dim B as integer = E

        Dim C as integer = E

        For i = 1 to (X-1)

        Dim A as integer = Console.ReadLine

        If A>B Then

            B = A

        Else

            IF A<C Then 

                C = A

            End IF

        End if

        D=D+1

        E=E+A

    Next

    Dim F as Integer = E/D

    Console.WriteLine(B)

    Console.WriteLine(C)

    Console.WriteLine(F)

    End Sub

End Module