iniciar-programa
define-prototipo-instruccion comparar(n);
define-prototipo-instruccion arquitecto(n);

define-nueva-instruccion comparar(n) como inicio
repetir n veces inicio
si junto-a-zumbador entonces coge-zumbador;
si no-junto-a-zumbador entonces sal-de-instruccion;
fin;
fin;


define-nueva-instruccion arquitecto(n) como inicio
si orientado-al-norte entonces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
arquitecto(sucede(n));
fin;
si frente-libre entonces avanza;
si junto-a-zumbador entonces inicio
comparar(n);
 si junto-a-zumbador entonces inicio
 repetir n veces deja-zumbador;
 arquitecto(0);
 fin;
fin;
si frente-bloqueado entonces inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
si frente-bloqueado entonces repetir 2 veces gira-izquierda;
repetir n veces inicio
deja-zumbador;
avanza;
fin;
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
si frente-bloqueado entonces gira-izquierda;
si frente-libre entonces inicio
avanza;
gira-izquierda;
arquitecto(0);
fin;
si frente-bloqueado entonces apagate;
fin;
arquitecto(n);

fin;
fin;
    inicia-ejecucion
    arquitecto(0);
        apagate;
    termina-ejecucion
finalizar-programa
