Imports System

Public Module Module1

    Public Sub Main()

        Dim altura1 as decimal 

        Dim altura2 as decimal

        Dim altura3 as decimal

        Dim altura4 as decimal

        Console.WriteLine("Ingrese la altura 1")

        altura1 = Console.ReadLine()

        Console.WriteLine("Ingrese la altura 2")

        altura2 = Console.ReadLine()

        Console.WriteLine("Ingrese la altura 3")

        altura3 = Console.ReadLine()

        Console.WriteLine("Ingrese la altura 4")

        altura4 = Console.ReadLine()

        if altura1 > altura2 AND altura1 > altura3 AND altura1 > altura4 then

            Console.Writeline("La altura 1 es la mayor")

        end if 

    End Sub

End Module