Imports System

Public Module Module1

    Public Sub Main()

        Dim suma as integer

        dim numero as integer

        dim cantidad as integer

        Console.WriteLine("Ingresar 10 numeros para decir que cantidad fue par e impar")

For i = 1 To 10

        Console.WriteLine("Ingrese el numero " + i.ToString())

        numero = Console.ReadLine()

        Next i

        IF numero mod 2 = 0 then 

            console.WriteLine("El numero es PAR")

        else console.WriteLine("El numero es IMPAR")

        End IF

End sub

End Module