Imports System

Public Module Module1

    Public Sub Main()

        dim count as integer 

        dim number as decimal

        dim total as decimal

        dim i as integer 

        dim highest as decimal

        dim lowest as decimal

        i=0

        total=0

        highest=-9999999999999999

        lowest=999999999999999999

        Console.WriteLine("Enter number "& count+1 )

                    number=console.ReadLine()

        if number<=0

            console.writeline("Jolly good!")

        else

            do

                if number>=0

                    if number > highest

                        highest=number

                    end if

                    if number < lowest  

                        lowest=number

                    end if

                    total=total+number

                    count = count + 1

                    Console.WriteLine("Enter number "& count+1 )

                    number=console.ReadLine()           

                else

                    i = i + 1

                end if

            loop until i = 1

            console.writeline("The number of values inputed is " & count)

            console.writeline("The total value is " & total)

            console.writeline("The average value is " & total/count)

            console.writeline("The highest value is " & highest)

            console.writeline("The lowest value is " & lowest)

        end if

    End Sub

End Module