Imports System

Module Program

    Function Smallest(ByVal num1 As Integer, ByVal num2 As Integer, ByVal num3 As Integer)

        Dim minimum As Integer = num1

        If num2 < minimum Then

            minimum = num2

        End If

        If num3 < minimum Then

            minimum = num3

        End If

        Return minimum

    End Function

    Sub Main()

        Console.WriteLine("Input three Integers..")

        Dim num1 As Integer = Clnt(Console.ReadLine(num1))

        Dim num2 As Integer = Clnt(Console.ReadLine(num2))

        Dim num3 As Integer = Clnt(Console.ReadLine(num3))

        Dim result As Integer = Smallest(num1, num2, num3)

        Console.WriteLine("The smallest number is : {0}", result)

        End Sub

    End Module