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")

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

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

        end if

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

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

        end if

        if altura1 < altura2 and altura1 < altura3 and altura1 < altura4 then

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

        elseif altura2 < altura1 and altura2 < altura3 and altura2 < altura4 then

            Console.WriteLine("La segunda altura es la menor")

        elseif altura3 < altura1 and altura3 < altura2 and altura3 < altura4  then

            Console.WriteLine("La tercera altura es la menor")

        end if

        if altura4 < altura1 and altura4 < altura3 and altura4 < altura2 then

            Console.WriteLine("La cuarta altura es la menor")

        end if

    End Sub

End Module

​

​

​