Imports System

Public Module Module1

    Public Sub Main()

        'Comparar mayor y menor de tres números

        'Solicitar y guardar los números

        Console.WriteLine("Ingrese tres números")

        dim a, b, c as integer

        a=Console.Readline()

        b=Console.Readline()

        c=Console.Readline()

        'Evaluar el mayor de los tres 

        if a>b and a>c then

            Console.Writeline("El mayor es A")

        end if

        if a>b and a>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