Imports System

Public Module Module1

    Public Sub Main()

        'Comparar mayor y menor de tres numeros

        'Solicitar y guardar los numeros

        Console.WriteLine("Ingrese tres numeros")

        dim a, b, c as integer 

        a=Console.Readline()

        b=Console.Readline()

        c=Console.Readline()

        'Evaluar el numero mayor de los tres

        If a>b and a>c then

            Console.Writeline("El mayor es a")

        end if

        If  b>a and b<c then

            Console.Writeline("El mayor es b")

    else

        Console.Writeline("El mayor es c")

    end if

        'Evaluar el menor de los tres

    If a<b and a<c then

        Console.Writeline("El menor es a")

    end if 

    If b<a and b<c then

        Console.Writeline("El menor es b")

    else

        Console.Writeline("El menor es c")

    end if 

    End Sub

End Module