Algoritmo detarea
	Definir n,primo,digito,i,c Como Entero
	Escribir "Ingresa un numero"
	leer n	
	primo = 0		
	Mientras n > 0 hacer		
		digito = n mod 10		
		i = 1
		c = 0
		Mientras  i <= digito Hacer
			si digito mod i == 0 Entonces
				c = c + 1
			FinSi
			i = i + 1
		FinMientras
		si c == 2 Entonces
			Escribir "El digito ",digito," es primo"
			primo = primo + 1
		FinSi	
		n = trunc(n/10)
	FinMientras
	Escribir "El numero tiene ",primo," digitos primos"
FinAlgoritmo