Imports System

Public Module Module1

    Public Sub Main()

        dim entry as integer

        dim full as integer

        dim mean as decimal 

        dim loopcounter as integer

        dim redflag as integer

        full = 0

        loopcounter = 0

        redflag = 0

        DO while redflag = 0

        console.writeline("enter value")

            entry = console.readline 

            if entry >0

            full = full + entry 

            loopcounter = loopcounter +1

            else 

                redflag = redflag + 1

                Console.writeline("ERROR, NEGITIVE NUMBER INPUTED")

        end if 

        loop 

        mean = full / loopcounter

        console.writeline("the mean equals " &mean &  " mm of rainfall per day")

    End Sub

End Module