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

define-nueva-instruccion acomoda como
inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer avanza;
gira(3);
avanza;
gira(1);
mientras derecha-bloqueada hacer avanza;
gira(3);
avanza;
mientras derecha-bloqueada hacer avanza;
gira(3);
avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer avanza;
gira(1);
fin;


define-nueva-instruccion deja-zumb(n) como
inicio
repetir 4 veces
inicio
repetir n veces
deja-zumbador;
avanza;
gira(1);
fin;
avanza;
si frente-bloqueado entonces
inicio
gira(2);
mientras frente-libre hacer avanza;
gira(3);
avanza;
si frente-bloqueado entonces apagate;
avanza;
gira(3);
fin
sino
avanza;
fin;


define-nueva-instruccion cuenta(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta(sucede(n));
fin
sino
inicio
si frente-libre y no-junto-a-zumbador entonces
inicio
repetir n veces deja-zumbador;
avanza;
fin
sino
inicio
si frente-bloqueado y izquierda-libre y no-junto-a-zumbador entonces
inicio
repetir n veces deja-zumbador;
gira(1);
avanza;
gira(1);
mientras frente-libre hacer avanza;
gira(2);
fin
sino
si  frente-bloqueado y izquierda-bloqueada y derecha-libre entonces
inicio
repetir n veces deja-zumbador;
acomoda;
deja-zumb(n);
sal-de-instruccion;
fin
sino
inicio
si frente-bloqueado y izquierda-bloqueada y derecha-bloqueada entonces
gira(2);
mientras frente-libre hacer avanza;
gira(1);
mientras derecha-bloqueada hacer avanza;
gira(3);
avanza;
mientras derecha-bloqueada hacer avanza;
gira(3);
avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer avanza;
gira(1);
deja-zumb(n);
sal-de-instruccion;
fin;
fin;
cuenta(0);
deja-zumb(n);
sal-de-instruccion;
fin;
fin;


    inicia-ejecucion
    mientras no-orientado-al-oeste hacer gira(1);
   cuenta(0);
    acomoda;
        apagate;
    termina-ejecucion
finalizar-programa
