Imports System

Public Module Module1

    Public Sub Main()

        dim n as integer = 0

        Do while n <= 0

            n = console.readline

        Loop

        Console.writeline("something")

        dim total as integer = 0

        dim count as integer = 0 

        dim number as integer

        do while count < n

            number = console.readline()

            total = total + number

            count = count + 1

        Loop

        Console.writeline(total/count)

    End Sub

End Module