Imports System

Public Module Module1

    Public Sub Main()

        TenNumbers()

    End Sub

    sub tenNumbers()

        dim i as integer

        dim nIn as integer

        dim nNns as integer

        dim nNms as integer

        for i = 1 to 10

        nIn=console.readline()

        if nIn>20 then

            nNns=nNns+1

            nNms=nNms+nIn

        end if

    next

    console.writeline("number > 20 was " & nNns)

    console.writeline("sum of numbers > 20 was " & nNms)

End sub

End Module