Imports System
Public Module Module1
Sub Main()
GetMaxFor()
End Sub
Private Sub GetMaxFor()
'Selects minimum value of the input numbers
Dim i As Integer
Dim minValue As Decimal
Dim nIn As Decimal
minValue = 100000000000
Console.WriteLine("Enter 10 numbers slowly")
For i = 1 To 10
nIn = Convert.ToInt32(Console.ReadLine())
If(nIn < minValue) Then
minValue = nIn
End If
Next
Console.WriteLine(minValue)
End Module