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
End If
Sum += n
Next
Console.WriteLine(Smallest)
Console.WriteLine(Sum)
Console.ReadLine()
End Sub
Public Sub Main2()
Dim Count As Integer
Dim num As Integer
num = Console.ReadLine()
If num > 20 Then
Count = Count + 1
Sum = Sum + num
Console.WriteLine("Number > 20: " & Count)
Console.WriteLine("Sum of numbers > 20: " & Count)
Public Sub Main3()
For i = 0 To n
Console.WriteLine(n - i)
Public Sub Main4()
Console.Write(n - i)
End Module