Imports System

Public Module Module1

    Public Sub Main()

        dim total_values as integer 

        dim number as integer 

        dim total as integer 

        dim avg as decimal

        dim count as integer = 0

        do 

         console.WriteLine("enter number of values to be inputed")

         total_values = console.readline()

        loop until total_values > 0 and total_values = integer.parse(total_values)

             while count < total_values

              do  

                console.writeline("enter a value")

                number = console.readline()

              loop until number = integer.parse(number)

                if number >= 0 then 

                  total = total + number 

                  count = count + 1

                else if number < 0 then 

                  console.writeline("positive numbers only")

                end if 

            end while 

            avg = total / total_values 

            console.write("the average is ") : console.writeline(avg) 

    End Sub

End Module