Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("par o impar ")

        dim n as integer

        console.WriteLine(" ingrese numerro")

        n = console.ReadLine()

        IF ( n mod 2 = 0) then

            console.WriteLine(" es par ")

        else

            console.WriteLine("es impar ")

        end if

    End Sub

End Module