Ejercicio 15 de Speint: un programa que permite al usuario que operación desea realizar

Proceso num
Definir a,b,x como Entero;
Definir OP,c,d como cadena;
Repetir
Escribir "Operacion con numeros hasta 100";
Escribir "si quiere saber los numeros primos dijite: p" ;
Escribir "si quiere saber los numeros pares dijite: 2";
Escribir "si quiere saber los numeros impares dijite: i";
Repetir
Escribir "digite una de las siguientes operaciones que decea ejecutar";
Leer OP;
Hasta Que OP="p" | OP="2" | OP="i"
Si OP="2" Entonces
Escribir "generar numeros primos";
Para b<-1 Hasta 100 Con Paso 1 Hacer
Si b%2=0 Entonces
Escribir "numero par",b; 
Sino
//nada//
FinSi
FinPara
Sino
Si OP="i" Entonces
Escribir "generar numeros pares";
Para b<-1 Hasta 100 Con Paso 2 Hacer
Escribir "numeros impares",b;
FinPara
Sino
Si OP="p" Entonces
Escribir "generar numeros primos";
x<-1;
Mientras x<=99 Hacer
Si (x%1=0)|(x%x=0)|(x%3=0)|(x%5=0)|(x%7=0) Entonces
Escribir "primos",x;
Sino
///
FinSi
x<-x+1;
FinMientras
FinSi
FinSi
FinSi
Escribir "decea realisar un proceso mas? dijite: 1 para seguir o 2 para finalizar";
Leer c;
Hasta Que c="2"
FinProceso