iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion eleva(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
eleva(sucede(n));
fin
sino inicio
repetir n veces
deja-zumbador;
avanza;
repetir n veces repetir 2 veces deja-zumbador; avanza;
repetir n veces repetir 3 veces deja-zumbador; avanza;
repetir n veces repetir 4 veces deja-zumbador; avanza;
repetir n veces repetir 5 veces deja-zumbador; avanza;
repetir n veces repetir 6 veces deja-zumbador; avanza;
repetir n veces repetir 7 veces deja-zumbador; avanza;
repetir n veces repetir 8 veces deja-zumbador; avanza;
repetir n veces repetir 9 veces deja-zumbador; avanza;
repetir n veces repetir 10 veces deja-zumbador; avanza;
repetir n veces repetir 11 veces deja-zumbador; avanza;
repetir n veces repetir 12 veces deja-zumbador; avanza;
repetir n veces repetir 13 veces deja-zumbador; avanza;
repetir n veces repetir 14 veces deja-zumbador; avanza;
repetir n veces repetir 15 veces deja-zumbador; avanza;
repetir n veces repetir 16 veces deja-zumbador; avanza;
repetir n veces repetir 17 veces deja-zumbador; avanza;
repetir n veces repetir 18 veces deja-zumbador; avanza;
repetir n veces repetir 19 veces deja-zumbador; avanza;
repetir n veces repetir 20 veces deja-zumbador; avanza;
fin;
fin;

define-nueva-instruccion busca(n) como inicio
si junto-a-zumbador entonces inicio
repetir n veces inicio
si junto-a-zumbador y orientado-al-norte entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-este hacer
gira-izquierda;
deja-zumbador;
fin;
fin;
fin;
si orientado-al-este y junto-a-zumbador entonces inicio
gira(1);
si junto-a-zumbador entonces inicio
repetir n veces inicio
si junto-a-zumbador y orientado-al-norte entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-este hacer
gira-izquierda;
deja-zumbador;
fin;
fin;
fin;
gira(1);
avanza;
busca(n);
fin
sino inicio
si junto-a-zumbador y orientado-al-norte entonces inicio
repetir n veces
deja-zumbador;
gira(2);
mientras frente-libre hacer avanza;
gira(3);
avanza;
gira(3);
mientras no junto-a-zumbador hacer avanza;
sal-de-instruccion;
fin
sino inicio
si no junto-a-zumbador entonces inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
avanza;
repetir n veces deja-zumbador;
apagate;
fin;
fin;
fin;
fin;

define-nueva-instruccion compara(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
compara(sucede(n));
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
avanza;
gira(1);
mientras no junto-a-zumbador hacer
avanza;
busca(n);
compara(0);
fin;
fin;

    inicia-ejecucion
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer  avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(3);
    eleva(0);
    gira(2);
    mientras frente-libre hacer avanza;
    gira(1);
    avanza;
    gira(1);
    eleva(0);
    gira(2);
    mientras frente-libre hacer
    avanza;
    gira(3);
    avanza;
    gira(3);
    compara(0);
         apagate;
    termina-ejecucion
finalizar-programa
