Imports System

Public Module Module1

    Public Sub Main()

​

​

        Dim n1, n2, n3 as integer

        Console.WriteLine("solicite 3 numeros")

        n1 = console.ReadLine()

        n2 = console.ReadLine()

        n3 = console.ReadLine()

        if n1>n2 and n1>n3 then

            console.WriteLine("El mayor  " &n1)

        end if

        if n2>n1 and n2>n3

            Console.WriteLine("El mayor  " &n2)

        end if

        if n3>n1 and n3>n2 then

            Console.WriteLine("El mayor  " &n3)

        end if

    End Sub

End Module