iniciar-programa
define-nueva-instruccion camina(k) como inicio
repetir k veces inicio
si frente-libre entonces avanza;
fin;
fin;

define-nueva-instruccion as(n)  como inicio
    si junto-a-zumbador entonces inicio
repetir n veces inicio
   si junto-a-zumbador entonces inicio
   coge-zumbador;
   fin
   sino inicio
   si no-junto-a-zumbador entonces inicio
   mientras no-orientado-al-sur hacer  gira-izquierda;
si frente-libre entonces avanza;
si no junto-a-zumbador entonces inicio
repetir n veces deja-zumbador;
fin;
si junto-a-zumbador entonces coge-zumbador;
    mientras no-orientado-al-norte hacer  gira-izquierda;
si frente-libre entonces avanza;
   fin;
fin;
fin;



     si orientado-al-oeste entonces inicio
    mientras no orientado-al-este hacer gira-izquierda;
    camina(1);
    mientras no orientado-al-norte hacer gira-izquierda;
    camina(1);
             mientras no orientado-al-oeste hacer gira-izquierda;
    camina(1);
    si algun-zumbador-en-la-mochila entonces deja-zumbador;
    mientras no orientado-al-este hacer gira-izquierda;
    camina(1);
       mientras no orientado-al-sur hacer gira-izquierda;
    camina(1);
         mientras no orientado-al-oeste hacer gira-izquierda;
    camina(1);
    as(n);
    fin;
    fin;
   fin;

define-nueva-instruccion divide(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
divide(sucede(n));
fin
sino inicio
mientras no orientado-al-sur hacer gira-izquierda;
camina(1);
mientras no orientado-al-este hacer gira-izquierda;
camina(1);
mientras no orientado-al-norte hacer gira-izquierda;
camina(1);
mientras no orientado-al-oeste hacer gira-izquierda;
si junto-a-zumbador entonces as(n);
fin;
fin;


             define-nueva-instruccion a como inicio
                mientras no orientado-al-este hacer gira-izquierda;
si frente-libre entonces avanza;
mientras no orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no-orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no-orientado-al-norte hacer gira-izquierda;
mientras frente-libre hacer avanza;
fin;

define-nueva-instruccion multiplica (n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
multiplica(n);
repetir n veces inicio
deja-zumbador;
fin;

fin
sino inicio
a;
fin;
fin;




define-nueva-instruccion cuenta (n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
cuenta( sucede (n) );
fin
sino inicio
avanza;
multiplica (n);
fin;
fin;
    inicia-ejecucion
         mientras no orientado-al-este hacer gira-izquierda;
si frente-libre entonces avanza;
mientras no orientado-al-norte hacer gira-izquierda;
si frente-libre entonces avanza; avanza; avanza;
mientras no-orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-sur hacer gira-izquierda;
cuenta(0);
mientras no orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-este hacer gira-izquierda;
camina(2);
mientras no-orientado-al-norte hacer gira-izquierda;
camina(2);
divide(0);


        apagate;
    termina-ejecucion
finalizar-programa

