Programa que dado un numero indica si es primo o no lo es


Inicio
    Escribir "introduce un numero";
    Leer a;
    b<-0;
    c<-a+1;
    Si a>=1 Entonces
        Para x<-1 Hasta a Hacer
            Si (a%x)=0 Entonces
                b<-b+x;
            FinSi
        FinPara
    Sino
        Escribir "tiene que ser mayor o igual que la unidad";
    FinSi
    Si c=b Entonces
        Escribir "el numero es primo";
    Sino
        Escribir "el numero no es primo";
    FinSi
Fin