Imports System

Public Module Module1

    Public Sub Main()

        dim a, b as integer

        Console.WriteLine("Ingrese primer valor:")

        a=console.Readline()

        Console.WriteLine("Ingrese segundo valor:")

        b=console.Readline()

        if a=b then

            Console.WriteLine("Ls valores son iguales: " &a)

        else

            if a> b then

                Console.WriteLine("el mayor es: " &a)

            else

                Console.WriteLine("el mayor es: " &b)

            end if

        end if

    End Sub

End Module