Proceso para generar números primos, pares o impares.

Proceso sin_titulo
Definir a,b,c,d,e Como Entero;
Definir num como cadena;
Definir cant_a_mostrar,n,cant_mostrados,i Como Entero;
Definir es_primo Como Logico;

a<-0;
e<-1;
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
Para e<-1 Hasta 100 Con Paso 1 Hacer
Mientras e<=e Hacer
Escribir e;
e<-e+2;
FinMientras
FinPara
FinSi

FinSi
FinSi
FinPara
FinProceso