iniciar-programa



define-nueva-instruccion cuenta(num) como inicio

si derecha-bloqueada entonces inicio

    mientras no si-es-cero(num) hacer inicio
    deja-zumbador;
    cuenta(precede(num));
    fin;

    gira-izquierda;
    gira-izquierda;
    avanza;
    mientras algun-zumbador-en-la-mochila hacer inicio
    deja-zumbador;
    fin;
    apagate;
    fin;


si junto-a-zumbador y orientado-al-norte entonces inicio
coge-zumbador;
fin;
   si junto-a-zumbador y orientado-al-norte entonces inicio

avanza;
cuenta(sucede(num));
fin sino inicio
 avanza;
 si no-junto-a-zumbador y orientado-al-norte entonces inicio
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer inicio
    avanza;
    fin;
    gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
     si no-junto-a-zumbador entonces inicio
    gira-izquierda;
    gira-izquierda;
    avanza;
    gira-izquierda;
    gira-izquierda;
    gira-izquierda;
    mientras frente-libre hacer inicio
    avanza
    fin;
    gira-izquierda;
    gira-izquierda;
    avanza;
    si no si-es-cero(num) entonces inicio
    deja-zumbador;
    cuenta(precede(num));
    fin;
    fin;

 fin;
 cuenta(num);
fin;


fin;
    inicia-ejecucion
    avanza;

    si  junto-a-zumbador entonces inicio
    cuenta(0);
    fin;


        apagate;
    termina-ejecucion
finalizar-programa
