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

    '--- Que altura es mayor --'

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

            Console.Writeline("La altura 1,50 es la más grande")

        end if

        '---- Que altura es menor --------'

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

            Console.Writeline("La altura 1.15 es la más chica")

        end if

    End Sub

End Module