Imports System

Public Module Module1

    Public Sub Main()

    dim numIng as integer = 0

        dim cantpares as integer = 0

        dim cantimpares as integer = 0

        For contador = 1 to 10

        console.WriteLine(contador.ToString() + "Por favor, ingrese un número")

        numIng = Console.readline()

        if numIng mod 2 = 0 then

            'Número par

            cantpares = cantpares + 1

        else

            'Número impar 

            cantimpares = cantimpares + 1

        end if 

    next contador

    Console.WriteLine("La conatidad de números pares es de: " + cantpares.ToString())

    console.WriteLine("La cantidad e números impares es de: " + cantimpares.ToString())

    End Sub

End Module