Imports System

Public Module Module1

    Public Sub Main()

        print("Input 10 Numbers")

        dim n1 as integer

        dim sum as integer = 0

        dim small as integer = 0

        dim x as integer

        n1 = console.ReadLine()

        small = n1

        sum = sum + n1

        For x = 1 to 9

        n1 = console.ReadLine()

        if (n1 < small)

        small = n1

        end if

        sum = sum + n1

        Next

        print(small & " is the smallest number")

        print("The sum of the ten numbers are " & sum)

    End Sub

Public sub print(ps as string)

        console.WriteLine(ps)

    End sub

End Module