iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion expa como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
expa;
deja-zumbador;
si frente-libre entonces
avanza;
fin
sino inicio
mientras no orientado-al-norte hacer
gira-izquierda;
fin;
fin;

define-nueva-instruccion todo como inicio
si junto-a-zumbador entonces inicio
expa;
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces
avanza;
todo;
fin;
fin;

define-nueva-instruccion toma como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si frente-libre entonces
avanza;
toma;
avanza;
fin
sino inicio
gira(2);
fin;
fin;

define-nueva-instruccion busca(n) como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin
sino inicio
repetir n veces deja-zumbador;
apagate;
fin;
gira(1);
fin;
busca(n);
fin
sino inicio
si junto-a-zumbador entonces inicio
gira(3);
coge-zumbador;
si frente-libre entonces
avanza;
toma;
gira(3);
mientras frente-libre hacer inicio
si junto-a-zumbador entonces inicio
gira(3);
coge-zumbador;
si frente-libre entonces
avanza;
toma;
gira(3);
fin
sino inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin;
gira(1);
fin;
fin;
fin;
busca(sucede(n));
fin;
fin;
fin;
    inicia-ejecucion
    todo;
    gira(2);
    mientras frente-libre hacer
    avanza;
    gira(3);
    mientras frente-libre hacer
    avanza;
    gira(3);
    busca(0);
        apagate;
    termina-ejecucion
finalizar-programa
