iniciar-programa

   define-nueva-instruccion media-vuelta como  repetir 2 veces gira-izquierda;
   define-nueva-instruccion gira-derecha como  repetir 3 veces gira-izquierda;

   define-nueva-instruccion toma(n) como inicio

  si junto-a-zumbador entonces inicio
   coge-zumbador;
    si junto-a-zumbador entonces inicio
     mientras junto-a-zumbador hacer coge-zumbador;
     toma(n);
    fin
    sino inicio
    deja-zumbador;
    sal-de-instruccion;
    fin;
    si frente-libre entonces inicio
     avanza;
     toma(n);
     media-vuelta; avanza; media-vuelta;
    fin;

    si derecha-libre entonces inicio
     gira-derecha;
     avanza;
     toma(n);
     media-vuelta; avanza; media-vuelta; gira-izquierda;
    fin;

    si izquierda-libre entonces inicio
     gira-izquierda;
     avanza;
     toma(n);
     media-vuelta; avanza; media-vuelta; gira-derecha;
    fin;

  fin;
fin;

   define-nueva-instruccion coge2 como inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador; coge-zumbador;
    coge2;
    deja-zumbador;
    fin;
    fin;
   define-nueva-instruccion coge(n) como inicio
    si frente-libre y no junto-a-zumbador entonces inicio
    avanza;
    coge(n);
    fin;

    si frente-bloqueado y orientado-al-norte y no junto-a-zumbador entonces inicio
     media-vuelta;
     mientras frente-libre hacer avanza;
     gira-izquierda;

     si frente-libre entonces inicio
      avanza;
      gira-izquierda;
      coge(n);
     fin
     sino inicio
     media-vuelta;
     mientras frente-libre hacer avanza;
     si junto-a-zumbador entonces inicio
     mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     coge-zumbador;
     coge-zumbador;
     fin
     sino
     mientras algun-zumbador-en-la-mochila hacer deja-zumbador;

     repetir 3 veces inicio
     repetir n veces
     si junto-a-zumbador entonces
     coge-zumbador
     sino apagate;
     fin;
     coge2;
     apagate;
     fin;
      coge(n);
    fin;
    si junto-a-zumbador entonces inicio
    coge-zumbador;
     si junto-a-zumbador entonces inicio
      deja-zumbador;
       si frente-libre entonces inicio
       avanza;
       coge(n);
       fin
       sino inicio
          si frente-bloqueado y orientado-al-norte entonces inicio
     media-vuelta;
     mientras frente-libre hacer avanza;
     gira-izquierda;

     si frente-libre entonces inicio
      avanza;
      gira-izquierda;
      coge(n);
     fin
     sino inicio
     media-vuelta;
     mientras frente-libre hacer avanza;
     si junto-a-zumbador entonces inicio
     mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     coge-zumbador;
     coge-zumbador;
     fin
     sino
     mientras algun-zumbador-en-la-mochila hacer deja-zumbador;

     repetir 3 veces inicio
     repetir n veces
     si junto-a-zumbador entonces
     coge-zumbador
     sino apagate;
     fin;
     coge2;
     apagate;
     fin;
      coge(n);
    fin;
    fin;
    fin sino
    coge(sucede(n));
    fin;
    fin;


    inicia-ejecucion
    mientras no orientado-al-norte hacer gira-izquierda;
    si frente-libre y no junto-a-zumbador entonces avanza;
    toma(0);
    mientras no orientado-al-este hacer gira-izquierda;
    si frente-libre y no junto-a-zumbador entonces avanza;
    toma(0);
    mientras no orientado-al-oeste hacer gira-izquierda;
    si frente-libre y no junto-a-zumbador entonces avanza;
    toma(0);
    mientras no orientado-al-sur hacer gira-izquierda;
    si frente-libre y no junto-a-zumbador entonces avanza;
    toma(0);

       mientras no orientado-al-oeste hacer gira-izquierda;
       mientras frente-libre hacer avanza;
       gira-izquierda;
       mientras no orientado-al-sur hacer gira-izquierda;
       mientras frente-libre hacer avanza;
       repetir 2 veces gira-izquierda;
     Coge(0);
    apagate;
    termina-ejecucion
finalizar-programa
