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

Proceso PrimosParImpar
Definir a,b,c,d,e,f,g,h 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
Sino
Si num="primo" | num="Primo" | num="PRIMO" Entonces
Para f<-1 Hasta 100 Con Paso 1 Hacer
g<-0;
Para h<-1 Hasta f Con Paso 1 Hacer
Si f%h=0 Entonces
g<-g+1;
FinSi
FinPara
Si g=2 Entonces
escribir f;
FinSi
FinPara
FinSi
FinSi

FinSi
FinSi
FinPara
FinProceso