iniciar-programa
   define-nueva-instruccion gira-derecha como inicio
   repetir 3 veces gira-izquierdA;
   fin;
   define-nueva-instruccion media-vuelta como inicio
   repetir 2 veces gira-izquierda;
   fin;
  define-nueva-instruccion siguiente como inicio
si frente-libre y no junto-a-zumbador entonces inicio
avanza;
si no junto-a-zumbador entonces inicio
media-vuelta;
avanZA;
gira-derecha;
fin;
fin;
si frente-bloqueado y no junto-a-zumbador entonces inicio
gira-izquierda;
fin;
si frente-libre y no junto-a-zumbador entonces inicio
avanza;
si no junto-a-zumbador entonces inicio
media-vuelta;
avanZA;
gira-derecha;
fin;
fin ;
si frente-bloqueado y no junto-a-zumbador entonces inicio
gira-izquierda;
fin;
si frente-libre y no junto-a-zumbador entonces inicio
avanza;
si no junto-a-zumbador entonces inicio
media-vuelta;
avanZA;
gira-derecha;
fin;
fin ;
 si frente-bloqueado y no junto-a-zumbador  entonces inicio
gira-izquierda;
fin;
si frente-libre y no junto-a-zumbador entonces inicio
avanza;
si no junto-a-zumbador entonces inicio
media-vuelta;
avanZA;
gira-derecha;
fin;
fin ;
si frente-bloqueado y no junto-a-zumbador  entonces inicio
gira-izquierda;
fin;
si no junto-a-zumbador entonces apagate;
fin;





define-nueva-instruccion primo(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
primo (sucede(n));
fin
sino inicio
si si-es-cero   (precede(precede(n)))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(n)))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero (precede(precede(precede(precede(precede(n)))))) entonces inicio
siguiente;
primo (0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(precede(precede(precede(precede(n)))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))   entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero    (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero    (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero    (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero    (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero    (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero   (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))    entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))  entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))   entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))   entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))   entonces inicio
siguiente;
primo(0);
fin
sino inicio
si si-es-cero  (precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(precede(n)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) entonces inicio
siguiente;
primo(0);
fin
sino inicio
media-vuelta;
avanzA;
siguiente;
si junto-a-zumbador entonces primo (0);
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
fin;
 fin;
  fin;
    fin;





    inicia-ejecucion
    mientras no orientado-al-norte hacer gira-izquierdA;
    primo(0);
        apagate;
    termina-ejecucion
finalizar-programa
