iniciar-programa
define-nueva-instruccion    serca(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
serca(sucede(n));
fin
sino inicio
mientras no-orientado-al-norte hacer gira-izquierda;
si frente-libre entonces avanza;
    mientras no-junto-a-zumbador hacer inicio
deja-zumbador;
repetir n veces inicio
si frente-libre y derecha-bloqueada entonces avanza
sino inicio
si frente-libre entonces  avanza;
si derecha-libre entonces inicio
gira-izquierda;
gira-izquierda;
si frente-libre entonces avanza;
gira-izquierda;

si frente-libre entonces avanza;
fin;
fin;
   fin;
            fin;

            mientras no orientado-al-sur hacer gira-izquierda;
            mientras frente-libre hacer avanza;
            repetir n veces deja-zumbador;
              fin;
            fin;
            define-nueva-instruccion cuenta(n) como inicio
           si frente-libre y derecha-bloqueada entonces inicio
           si junto-a-zumbador entonces inicio
           avanza;
           cuenta(1)
           fin
           sino inicio
           avanza;
           cuenta(0);
            fin ;
            fin
            sino inicio
             si frente-libre y junto-a-zumbador entonces inicio
               avanza;
               si derecha-libre y no-orientado-al-oeste entonces inicio
gira-izquierda;
gira-izquierda;
si frente-libre entonces avanza;
gira-izquierda;
si frente-libre entonces avanza;
fin;
          si frente-libre entonces  cuenta(1)
           fin
           sino inicio
           si frente-libre y no-junto-a-zumbador entonces inicio
           avanza;
           si derecha-libre y no-orientado-al-oeste entonces inicio
gira-izquierda;
gira-izquierda;
si frente-libre entonces avanza;
gira-izquierda;
si frente-libre entonces avanza;
fin;
           si frente-libre entonces cuenta(0);
            fin ;
            fin;


si orientado-al-oeste entonces inicio
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;
fin;
fin;
si si-es-cero(n) entonces inicio
repetir 3 veces inicio
si frente-libre entonces avanza;
fin;
deja-zumbador;
mientras no-orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no-orientado-al-este hacer gira-izquierda;
fin;
si si-es-cero(precede(n)) entonces inicio
repetir 2 veces inicio
si frente-libre entonces avanza;
fin;
deja-zumbador;
mientras no-orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
mientras no-orientado-al-este hacer gira-izquierda;
fin;

fin;






    inicia-ejecucion
    mientras no-orientado-al-este hacer gira-izquierda;
    si frente-libre entonces avanza;
    serca(0);
    mientras no orientado-al-norte hacer gira-izquierda;
    si frente-libre entonces avanza;
 cuenta(2);

        apagate;
    termina-ejecucion
finalizar-programa

