Imports System

Public Module Module1

    Public Sub Main()

        Dim tamaño1 as Decimal

        Dim tamaño2 as Decimal

        Dim tamaño3 as Decimal

        Dim tamaño4 as Decimal 

        Console.WriteLine("Ingrese el tamaño1")

        tamaño1 = Console.ReadLine()

        Console.WriteLine("Ingrese el tamaño2")

        tamaño2 = Console.ReadLine()

        Console.WriteLine("Ingrese la tamaño3")

        tamaño3 = Console.ReadLine()

        Console.WriteLine("Ingrese la tamaño4")

        tamaño4 = Console.ReadLine()

        if tamaño1 > tamaño2 AND tamaño1 > tamaño3 AND tamaño1 >tamaño4 then

            Console.WriteLine("El tamaño1 es el mas grande")

        elseif tamaño2 > tamaño1 AND tamaño2 > tamaño3 AND tamaño2 > tamaño4 then

            Console.WriteLine("El tamaño2 es el mas grande")

        elseif tamaño3 > tamaño1 AND tamaño3 > tamaño2 AND tamaño3 > tamaño4 then

            Console.WriteLine("El tamaño3 es el mas grande")

            elseif tamaño4 > tamaño1 AND tamaño4 > tamaño2 AND tamaño4 > tamaño3 then

            Console.WriteLine("El tamaño4 es el mas grande")

            elseif tamaño1 < tamaño2 AND tamaño1 < tamaño3 AND tamaño1 < tamaño4 then

            Console.WriteLine("El tamaño1 es el mas chico")

                elseif tamaño2 < tamaño1 AND tamaño2 < tamaño3 AND tamaño2 < tamaño4 then

            Console.WriteLine("El tamaño2 es el mas chico")

        elseif tamaño3 < tamaño1 AND tamaño3 < tamaño2 AND tamaño3 < tamaño4 then

            Console.WriteLine("El tamaño3 es el mas chico") 

        elseif tamaño4 < tamaño1 AND tamaño4 < tamaño2 AND tamaño4 < tamaño3 then

            Console.WriteLine("El tamaño4 es el mas chico")

        end if

    End Sub

End Module

​

​