Imports System

Public Module Module1

    Public Sub Main()

        dim numeroIngresado as Integer = 0

        dim cantidadPares as Integer = 0

        dim cantidadImpares as Integer = 0

        For contador = 1 to 10          

            Console.WriteLine(contador.ToString() + "-Ingrese un nro ") 

            numeroIngresado = Console.ReadLine()

            if numeroIngresado Mod 2 = 0 then

                'Esto es un nro par

                cantidadPares = cantidadPares + 1

            else

                'Esto sería un nro impar

                cantidadImpares = cantidadImpares + 1

            end if      

        Next contador

        Console.WriteLine("La cantidad de nros pares es de: " + cantidadPares.ToString())

        Console.WriteLine( "La cantidad de nros impares es de: " + cantidadImpares.ToString())  

    End Sub

End Module