Proceso primo_par_impar
Definir a,b,c,d Como Entero;
Definir num como cadena;
a<-0;
Escribir "Lista de lo que puede optener";
Escribir "Lista de Numeros Primo: primo ";
Escribir "Lista de Numeros Pares: par";
Escribir "Lista de Numeros Impares: impar";
Repetir
Escribir "Que lista quiere optener: ";
Leer num;
Hasta Que num="primo" | num="Primo" | num="PRIMO"| num="par" | num="PAR" | num="Par"| num="impar" | num="IMPAR"| num="Impar" ;
Para a<-1 Hasta 100 Con Paso 1 Hacer
Si a%2=0 Entonces
Si num="par" | num="PAR" | num="Par" Entonces
Escribir a;
Sino
Si num="impar" | num="IMPAR"| num="Impar" Entonces
Si a%2=1 Entonces
Escribir a;
FinSi
Sino
Si a=0 Entonces
Si num="primo" | num="Primo" | num="PRIMO" Entonces
Escribir a;
a<-a+1;
FinSi
FinSi
FinSi
FinSi
FinSi
FinPara
FinProceso