Examen: Ciclo Para

Diseñe un algoritmo que dado los primeros N numeros  diga cuantos son pares y cuantos impares.


var n, x, num, mod, cp, ci: numerico
inicio
    cls()
    imprimir("\n digite la cantidad de un numero")
    leer(n)
    desde x=1 hasta n {
    imprimir("\n diite un numero")
    leer(num)
    si (num%2=0) {
    cp=cp+1
    sino
    ci=ci+1
    }
    }
    imprimir ("cantidad de par es",cp)
    imprimir("cantidad de impar es", ci)
Fin