iniciar-programa
define-nueva-instruccion girando(n) como
repetir n veces
gira-izquierda;
define-nueva-instruccion reparte2 como inicio
si no-junto-a-zumbador entonces
deja-zumbador;
si frente-libre entonces inicio
avanza;
girando(3);
si frente-libre entonces
avanza;
gira-izquierda;
reparte2;
fin;
fin;
define-nueva-instruccion reparte como inicio
deja-zumbador;
si frente-libre entonces inicio
avanza;
gira-izquierda;
si frente-libre entonces
avanza;
girando(3);
reparte;
fin
sino inicio
girando(2);
mientras frente-libre hacer
avanza;
girando(2);
reparte2;
fin;
fin;
define-nueva-instruccion horizontal como inicio
si frente-libre entonces
avanza;
si frente-libre entonces inicio
avanza;
horizontal;
avanza;
fin
sino inicio
girando(2);
fin;
fin;
define-nueva-instruccion deja(n) como inicio
si junto-a-zumbador y orientado-al-norte entonces inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
apagate;
fin;
girando(3);
deja(sucede(n));
fin
sino inicio
repetir n veces
deja-zumbador;
fin;
si orientado-al-este o orientado-al-oeste o orientado-al-sur  entonces inicio
avanza;
si junto-a-zumbador entonces inicio
coge-zumbador;
girando(3);
fin;
deja(sucede(n));
girando(3);
fin;
si orientado-al-norte y frente-libre entonces inicio
si frente-libre entonces
avanza;
si junto-a-zumbador entonces
repetir n veces
deja-zumbadoR;
deja(sucede(n));
fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira-izquierda;
    reparte;
    mientras no-orientado-al-este hacer
    gira-izquierda;
    horizontal;
    girando(3);
    horizontal;
    mientras no-orientado-al-norte hacer
    gira-izquierda;
    deja(1);
        apagate;
    termina-ejecucion
finalizar-programa
