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 su primera altura")

            altura1 = Console.ReadLine()

        Console.WriteLine("Ingrese su segunda altura")

            altura2 = Console.ReadLine()

        Console.WriteLine("Ingrese su tercera altura")

            altura3 = Console.ReadLine()

        Console.WriteLine("Ingrese su cuarta altura")

            altura4 = Console.ReadLine()

        if altura1 > altura2 and altura1 > altura3 and altura1 > altura4 then

            Console.WriteLine("La primera altura es la mayor")

        elseif altura2 > altura1 and altura2 > altura3 and altura2 > altura4 then

            Console.WriteLine("La segunda altura es la mayor

    End Sub

End Module

​

​

​