Imports System

​

Public Class numMayor

​

    Public Shared Sub Main()

        Console.WriteLine("Añada un numero")

        Dim X As Integer = Convert.ToInt16(Console.ReadLine())

        Console.WriteLine("Añada un numero")

        Dim Y As Integer = Convert.ToInt16(Console.ReadLine())

        Console.WriteLine("Añada un numero")

        Dim Z As Integer = Convert.ToInt16(Console.ReadLine())

        If X > Y AndAlso X > Z Then

            Console.WriteLine("El numero mayor es " & X)

        Else

            If Y > X AndAlso Y > Z Then

                Console.WriteLine("El numero mayor es " & Y)

            Else

                Console.WriteLine("El numero mayor es " & Z)

            End If

        End If

​

        Console.ReadLine()

    End Sub

End Class

​