Imports System

Public Module Module1

    Public Sub Main()

        dim nro1 as integer

        Console.WriteLine("Bienvenido! Por favor ingrese un numero")

        nro1= console.readline()

        if nro1/2=0 then

            Console.WriteLine("Es par")

            else Console.WriteLine("Es impar")

        End if

    End sub

End Module