Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim n, int, count, sum, sum2, twenty as integer

        console.writeline("Input numbers between - 1,000,000,000 and 1,000,000,000")

        int = 1000000000

        sum = 0

        for count = 1 to 10

            n = console.readline()

            if n < int then

                int = n

            end if

​

            sum = n + sum

            if n > 20

                twenty = twenty + 1

                sum2 = n + sum2

            end if

        next

​

        Console.Write("the smallest value is ")

        console.writeline(int)

        Console.Write("  The sum is ")

        console.writeline(sum)

        Console.write("There were ")

        Console.write(twenty)

    Console.writeline(" numbers greater than twenty")

    Console.write("their sum is ")

    Console.writeline(sum2)

    End Sub

End Module

​