Imports System

Public Module Module1

    Public Sub Main()

        dim x, y, z as integer

        console.WriteLine("Integer 1 : ")

        x = console.ReadLine()

        console.WriteLine("Integer 2 : ")

        y = console.Readline ()

        console.WriteLine("Integer 3 : ")

        z = console.Readline()

        if x <= y and y >= z then

            console.WriteLine(y)

        elseif y < z and z > x then

            console.WriteLine(z)

        elseif z < x and x < y then

            console.WriteLine(x)

        end if

​

    End Sub

End Module