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 numero")

        NumeroIngresado = console.ReadLine()

        if NumeroIngresado Mod 2 = 0 then

            CantidadPares = CantidadPares + 1

        else

            CantidadImpares = CantidadImpares + 1

        End if

    Next contador

    console.WriteLine("La canntidad de numero pares es " + CantidadPares.ToString())

    console.WriteLine("La cantidad de numeros impares es " + CantidadImpares.ToString())        

​

    End Sub

End Module