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)
If Y > X AndAlso Y > Z Then
Console.WriteLine("El numero mayor es " & Y)
Console.WriteLine("El numero mayor es " & Z)