iniciar-programa
define-nueva-instruccion resultado(q) como
inicio
    si junto-a-zumbador entonces inicio
        repetir 9 veces inicio
            si junto-a-zumbador entonces inicio
                coge-zumbador;
            fin;
        fin;
        si junto-a-zumbador entonces inicio
                coge-zumbador;
                resultado(sucede(q));
            fin;

        fin;

    si no junto-a-zumbador entonces inicio
               mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
               repetir q veces inicio
               repetir 10 veces coge-zumbador
               fin;
               repetir 2 veces gira-izquierda;
            repetir 11 veces avanza;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            repetir q veces coge-zumbador;
            gira-izquierda;
            avanza;
            gira-izquierda;
            mientras no junto-a-zumbador hacer inicio
                si frente-libre entonces inicio
                    avanza;
                fin
                sino inicio
                mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                apagate;
                fin;
            fin;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            fin;
fin;
define-nueva-instruccion suma(p) como
inicio
    si junto-a-zumbador y orientado-al-sur entonces inicio
        coge-zumbador;
        suma(sucede(p));
    fin;
    si frente-libre y orientado-al-sur y no junto-a-zumbador entonces inicio
    avanza;
        suma(p);
    fin
    sino inicio
    si algun-zumbador-en-la-mochila entonces inicio
    repetir p veces deja-zumbador;
    fin
    sino suma(0);
    resultado(0);
    fin;
fin;
    inicia-ejecucion
    avanza;
    repetir 3 veces gira-izquierda;
    mientras no junto-a-zumbador hacer avanza;
    mientras junto-a-zumbador hacer avanza;
    repetir 2 veces gira-izquierda;
    avanza;
    repetir 3 veces gira-izquierda;
    mientras junto-a-zumbador hacer avanza;
    repetir 2 veces gira-izquierda; avanza;
     suma(0);
    apagate;
    termina-ejecucion
finalizar-programa
