Cantidad de pares o impares introducidos

Se pide números hasta que se introduce un 0. Hay que mostrar la cantidad de pares e impares introducidos

Algoritmo sin_titulo
	//Pedir números hasta que se escriba un 0 
	//Contar cuantos pares e impares han sido introducidos
	
	nPares=0
	nImpares=0
	
	Escribir "Número: "
	Leer n
	
	Mientras n<>0
		si n%2=0
			nPares=nPares+1
		SiNo
			nImpares=nImpares+1
		FinSi
		Escribir "Número: "
		Leer n
	FinMientras
	
	Escribir "Pares: " nPares
	Escribir "Impares: " nImpares


FinAlgoritmo