iniciar-programa
define-nueva-instruccion gira(g) como repetir g veces gira-izquierda;
define-nueva-instruccion pared(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
pared(sucede(n));
fin
sino inicio
repetir n veces deja-zumbador;
avanza;
si algun-zumbador-en-la-mochila entonces pared(sucede(sucede(n)));
fin;
fin;
define-nueva-instruccion piramide(p) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
piramide(sucede(p));
fin
sino inicio
mientras frente-libre hacer avanza;
gira-izquierda;
mientras junto-a-zumbador hacer inicio
avanza;
gira-izquierda;
avanza;
gira(3)
fin;
repetir p veces inicio
deja-zumbador;    avanza;
fin;
fin;
gira(3);
mientras frente-libre hacer avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(3);
avanza;
mientras junto-a-zumbador hacer avanza;
gira(2);
avanza;
si frente-bloqueado entonces inicio
mientras junto-a-zumbador hacer inicio gira(2);  avanza;  gira(3); avanza;  gira(3);
fin;
avanza;
gira(3);
avanza;
apagate;
fin;
piramide(0);
fin;

    inicia-ejecucion
    mientras no orientado-al-este  hacer gira-izquierda;
    repetir 25 veces si frente-libre entonces avanza;
    gira-izquierda;
    mientras orientado-al-norte hacer inicio
    mientras frente-libre y no junto-a-zumbador hacer avanza;
    si junto-a-zumbador entonces coge-zumbador;
    si frente-bloqueado entonces inicio
    gira(2);
    mientras frente-libre hacer avanza;
    si frente-bloqueado y derecha-bloqueada entonces inicio
    gira(2);
    avanza;
    deja-zumbador;
    pared(0);
    gira(2);
    avanza;
    piramide(0);
    fin;
    gira(3);
    avanza;
    gira(3);
    fin;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
