Proceso para saber si un numero es primo o no.

Proceso primo
Definir a,b,c,r Como Entero;
Escribir 'ingresar numero';
Leer a;
b<-2;
r<-1;
Mientras r!=0 Hacer
c<-a%b;
r<-a-(c*b);
Si r=0 Entonces
a<-a;
Sino
b<-b+1;
FinSi
FinMientras
Si a=b Entonces
Escribir a,'es primo';
Sino
Escribir a,'no es primo';
FinSi
FinProceso