Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Ingrese number one, plis:")

        Dim numero as Integer = Console.ReadLine()

        If numero Mod 2 =0

            Console.WriteLine("El number is PAR")

        else

            Console.WriteLine("El number is IMPAR")

        End if 

    End Sub

End Module