iniciar-programa
define-nueva-instruccion gira(n) como
inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion deja(n) como
inicio
gira(3);
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer avanza;
gira(1);
repetir 4 veces avanza;
gira(2);
repetir n veces coge-zumbador;
mientras frente-libre hacer avanza;
gira(1);

si junto-a-zumbador entonces
inicio
gira(1);
avanza;
gira(3);
fin;
repetir n veces deja-zumbador;
gira(3);
si frente-libre entonces avanza;
gira(3);
fin;
define-nueva-instruccion cuenta1(n) como
inicio

si frente-libre y derecha-bloqueada y orientado-al-sur entonces
inicio
avanza;
si derecha-libre entonces
inicio
deja(sucede(sucede(n)));
sal-de-instruccion;
fin
sino
inicio
avanza;
deja(sucede(sucede(sucede(n))));
sal-de-instruccion;
fin;
fin;
si frente-bloqueado y orientado-al-norte y izquierda-bloqueada entonces
inicio
gira(2);
mientras frente-libre hacer
avanza;
deja(sucede(n));
sal-de-instruccion;
fin;
si frente-libre entonces
inicio
avanza;
cuenta1(sucede(n));
sal-de-instruccion;
fin;
si frente-bloqueado y orientado-al-norte y izquierda-libre entonces
inicio
gira(1);
avanza;
gira(1);
cuenta1(sucede(n));
sal-de-instruccion;
fin;
si frente-bloqueado y orientado-al-sur entonces
inicio
gira(3);
avanza;
gira(3);
cuenta1(sucede(n));
fin;
fin;


define-nueva-instruccion acomoda1 como
inicio
mientras no-orientado-al-norte hacer gira(1);
repetir 2 veces avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(1);
cuenta1(0);
fin;
define-nueva-instruccion sube como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
sube;
inicio
deja-zumbador;
avanza;
fin;
fin;
fin;
define-nueva-instruccion mayor como
inicio
sube;
gira(2);
mientras frente-libre hacer avanza;
gira(1);
avanza;
gira(1);
sube;
gira(1);
avanza;
si junto-a-zumbador entonces
inicio

gira(3);
mientras junto-a-zumbador y frente-libre hacer avanza;
si frente-libre entonces
inicio
gira(2);
avanza;
fin
sino
gira(2);

mientras junto-a-zumbador hacer
inicio
coge-zumbador;
si frente-libre entonces avanza;
fin;
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
apagate;
fin
sino
inicio
gira(2);
avanza;
gira(3);
avanza;
mientras junto-a-zumbador hacer
inicio
coge-zumbador;
si frente-libre entonces avanza;
fin;
gira(3);
avanza;
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
coge-zumbador;
apagate;
fin;
fin;

    inicia-ejecucion
    acomoda1;
    avanza;
    avanza;
    avanza;
    acomoda1;
    mayor;
        apagate;
    termina-ejecucion
finalizar-programa

