Pares e Impares

El siguiente programa solicita N números y pide que sea ingresada esa cantidad, luego determina cuantos son pares y cuantos impares.

Proceso ParesImpares
cp<- 0;
ci<-0;
Escribir "Cuantos numeros";
leer n;
i<-n
repetir  
  Escribir "Digite numero";
  leer m;
 si (m mod 2) <= 0 Entonces
cp<- cp+1
    Sino
ci<- ci+1
i<- i+1
FinSi

hasta que i>n
Escribir "Los numeros pares son :",cp;
escribir "Los numeros impares son :",ci;

FinProceso