Algoritmo detarea
	Definir i,j,pares,impares,matriz Como Entero
	Dimension matriz[3,3]
	para i = 0 Hasta 2 Con Paso 1 Hacer
		para j = 0 Hasta 2 Con Paso 1 Hacer
			Escribir "Ingresa un numero en la fila: ",i," Columna: ",j
			leer matriz[i,j]
		FinPara
	FinPara
	para i = 0 Hasta 2 Con Paso 1 Hacer
		para j = 0 Hasta 2 Con Paso 1 Hacer
			Escribir  matriz[i,j]," " Sin Saltar
			si matriz[i,j] mod 2 == 0 Entonces
				pares = pares + 1
			SiNo
				impares = impares + 1
			FinSi
		FinPara
		Escribir ""
	FinPara
	Escribir "Numeros pares: ",pares
	Escribir "Numeros impares: ",impares
FinAlgoritmo