Imports System

Public Module Module1

    Public Sub Main()

            Dim impar As Double = 0

        Dim cadtidadnotasasolicitar As Integer = 10

        Dim par As Double = 0

        Dim numero As Double = 0

        Dim indice  As Double = 0  

        Dim resto As Integer = 0 

        For  indice=1 To cadtidadnotasasolicitar

        Console.WriteLine("Por favor ingrese el numero  "+ indice.ToString())

        numero = Double.Parse(Console.ReadLine())

        resto = numero  Mod 2 

        If   resto=0 Then 

            par = par + 1

        Else

            impar = impar +1

        End If 

    Next indice

    Console.WriteLine("La cantidad de numeros pares es de :" + par.Tostring())

    Console.WriteLine("La cantidad de numeros impar es de :" + impar.Tostring())

    End Sub

End Module