Imports System

Public Module Module1

    Public Sub Main()

        Dim n,x,v, np, ni As Integer

        x=1

        np = 0

        ni = 1

        Console.Write("Ingresar la cantidad de numeros")

        n= Console.ReadLine()

        Do while x <= n

            Console.Write("Ingrese el valor")

            v = console.ReadLine()

            If V Mod 2 = 0 Then

                np = np +1

            Else 

                ni = ni + 1

            End If

            x = x +1

        Loop

        Console.Write("Esta es la cantidad de numeros pares")

            Console.writeline(np)

            Console.Write("Esta es la cantidad de Impares")

            Console.writeline(ni)

    End Sub

End Module