Imports System

Module Module1

    Public Sub Main()

        Dim i As Integer

        Dim n As Integer

        Dim Smallest As Integer

        Dim Sum As Integer

        For i = 1 To 10

        n = Console.ReadLine()

        If i = 1 Then

        Smallest = n

        ElseIf n < Smallest Then

        Smallest = n

        End If

        Sum += n

        Next        

        Console.WriteLine(Smallest)

        Console.WriteLine(Sum)

        Console.ReadLine()

​

    End Sub

​

    Public Sub Main2()

        Dim Sum As Integer

        Dim i As Integer

        Dim Count As Integer

        Dim num As Integer

        For i = 1 To 10

        num = Console.ReadLine()

        If num > 20 Then

        Count = Count + 1

        Sum = Sum + num

        End If

        Next

        Console.WriteLine("Number > 20: " & Count)

        Console.WriteLine("Sum of numbers  > 20: " & Count)

​

    End Sub

​

    Public Sub Main3()

        Dim n As Integer

        n = Console.ReadLine()

        For i = 0 To n

            Console.WriteLine(n - i)

        Next

    End Sub

​

    Public Sub Main4()

        Dim n As Integer

        n = Console.ReadLine()

        For i = 0 To n

        Console.Write(n - i)

        Next

    End Sub

​

End Module