Ejercicio 10 de Speint: ¿como saber si un numero es primo?

Proceso Primos

definir a,b,c como entero;
a<-2;

Escribir "Introdusca un numero";
Leer b;
Mientras a<b & b%a <>0 hacer 
a<-a+1;
FinMientras
Si a=b Entonces
Escribir b, " es primo";
Sino
Escribir b, " no es primo";
FinSi
FinProceso