Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer

        Dim minlue As Decimal

        Dim nIn As Decimal

        minlue = 99999999999999999

        Console.WriteLine("enter 10 numbers.")

        For i = 1 To 10

            nIn = Convert.ToInt32(Console.ReadLine())

            If (nIn < minlue) Then

                minlue = nIn

            End If

        Next

        Console.WriteLine(minlue)

    End Sub

​

End Module