PseInt - Ejercicio 12 - numeros primos hasta el 1500 con par

Algoritmo primos
	definir i, a, c Como Entero
	i = 0
	a = 0
	c = 0
	para i = 1 hasta 1500 hacer
		para a = 1 hasta i Hacer
			si i % a == 0
				c = c + 1
			FinSi
		FinPara
		si c == 2
			Escribir i
		FinSi
		c = 0
	FinPara

FinAlgoritmo