iniciar-programa

 define-nueva-instruccion junta1(n) como inicio
si izquierda-bloqueada entonces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
junta1(sucede(n));
fin
sino inicio
si no junto-a-zumbador y frente-libre entonces inicio
mientras no junto-a-zumbador y frente-libre hacer avanza;
si junto-a-zumbador entonces junta1(0);
fin;
si frente-bloqueado y derecha-libre entonces inicio
gira-izquierda;  gira-izquierda; gira-izquierda;

mientras frente-libre y no junto-a-zumbador hacer avanza;
si junto-a-zumbador entonces  junta1(0);
fin;
si izquierda-libre y orientado-al-oeste entonces inicio
mientras no orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-este hacer gira-izquierda;
si frente-libre entonces avanza;
mientras frente-libre y junto-a-zumbador hacer avanza;

  fin;
   si algun-zumbador-en-la-mochila entonces inicio
  repetir n veces inicio
  si algun-zumbador-en-la-mochila entonces deja-zumbador;
  fin;
si junto-a-zumbador y frente-libre entonces avanza;
   fin;
   fin;

   fin;
    fin;




define-nueva-instruccion junta(n) como inicio
si frente-libre entonces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
junta(sucede(n));
fin
sino inicio
si no junto-a-zumbador y frente-libre entonces inicio
mientras no junto-a-zumbador y frente-libre hacer avanza;
junta(0);
fin;
si frente-bloqueado y derecha-libre entonces inicio
mientras no orientado-al-sur hacer gira-izquierda;
si frente-libre entonces avanza;
mientras no orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-este hacer gira-izquierda;
junta(0);
fin;
si frente-bloqueado y derecha-bloqueada entonces inicio
mientras no orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-sur hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no orientado-al-este hacer gira-izquierda;
   si frente-libre entonces avanza;
  fin;
   si algun-zumbador-en-la-mochila entonces inicio
  repetir n veces inicio
  si algun-zumbador-en-la-mochila entonces deja-zumbador;
  fin;
si junto-a-zumbador y frente-libre entonces avanza;
   fin;
   fin;

   fin;
    fin;
    define-nueva-instruccion par(n) como inicio
    si frente-libre  entonces inicio
     si no-junto-a-zumbador entonces inicio
     avanza;
     par(sucede(n));
fin
    sino inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si no-junto-a-zumbador entonces  par(n);
si junto-a-zumbador entonces  inicio
si frente-libre entonces avanza;
     par(n);
    fin;
fin;
fin;
fin
sino inicio
mientras no orientado-al-norte hacer gira-izquierda;
si frente-libre entonces avanza;
si si-es-cero (precede(n)) entonces inicio
deja-zumbador;
fin;

 fin;
 fin;
   define-nueva-instruccion re como inicio
    mientras frente-libre hacer inicio
mientras frente-libre y no-junto-a-zumbador hacer avanza;
si junto-a-zumbador entonces inicio
mientras no orientado-al-oeste hacer gira-izquierda;
mientras junto-a-zumbador hacer coge-zumbador;
mientras frente-libre hacer avanza;
mientras no orientado-al-este hacer gira-izquierda;
si frente-libre entonces avanza;
si no-junto-a-zumbador  entonces inicio
mientras algun-zumbador-en-la-mochila hacer deja-zumbador
fin;
mientras frente-libre y junto-a-zumbador hacer avanza;
si no-junto-a-zumbador  entonces inicio
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
si frente-libre entonces avanza;
fin;
fin;
fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    mientras no orientado-al-este hacer gira-izquierda;
      junta(0);
      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;
    mientras no orientado-al-este hacer gira-izquierda;
junta1(0);
      mientras no orientado-al-oeste hacer gira-izquierda;
       si frente-libre entonces avanza;

      mientras frente-libre hacer inicio
          par(0);
          si frente-libre entonces  avanza;
          mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
           mientras no orientado-al-sur hacer gira-izquierda;
 mientras frente-libre hacer avanza;
          mientras no orientado-al-este hacer gira-izquierda;
          re;
          mientras no orientado-al-oeste  hacer gira-izquierda;
          mientras frente-libre hacer avanza;
          mientras no orientado-al-este hacer gira-izquierda;
          si frente-libre entonces avanza;
          si no junto-a-zumbador entonces inicio
          mientras no orientado-al-sur hacer gira-izquierda;
           fin;
           mientras junto-a-zumbador hacer avanza;
             mientras no orientado-al-oeste hacer gira-izquierda;
     si frente-libre entonces avanza;
      fin;
      mientras no orientado-al-norte hacer gira-izquierda;
      si frente-libre entonces avanza;
      mientras junto-a-zumbador hacer coge-zumbador;
      mientras no orientado-al-sur hacer gira-izquierda;
      si frente-libre entonces avanza;
      mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
 apagate;

    termina-ejecucion
finalizar-programa
