iniciar-programa
    define-prototipo-instruccion busca(n);
    define-prototipo-instruccion a(n);
    define-nueva-instruccion riesgo(n) como
    inicio
        si frente-libre entonces
        inicio
            avanza;
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces
                    inicio
                    coge-zumbador;
                        si junto-a-zumbador entonces
                        inicio
                            repetir 3 veces deja-zumbador;
                        fin
                        sino
                        inicio
                            repetir 3 veces deja-zumbador;
                            repetir 2 veces gira-izquierda;
                            repetir n veces avanza;
                            deja-zumbador;
                            sal-de-instruccion;
                        fin;
                    fin
                    sino repetir 2 veces deja-zumbador;
                fin
                sino deja-zumbador;
            fin;
            si no (frente-bloqueado y no junto-a-zumbador) entonces riesgo(sucede(n))
            sino
            inicio
                repetir 2 veces gira-izquierda;
                            repetir n veces avanza;
                            sal-de-instruccion;
            fin;
        fin
        sino
        inicio
            repetir 2 veces gira-izquierda;
            repetir precede(n) veces avanza;
        fin;
    fin;
    define-nueva-instruccion toma(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            toma(sucede(n));
        fin
        sino
        inicio
            deja-zumbador;
            repetir 4 veces
            inicio
                si frente-libre entonces
                inicio
                    avanza;
                    busca(n);
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                fin;
                gira-izquierda;
            fin;
            coge-zumbador;
        fin;
    fin;
    define-nueva-instruccion minimo(n) como
    inicio
        si no si-es-cero(n) y junto-a-zumbador entonces
        inicio
            coge-zumbador;
            minimo(precede(n));
            deja-zumbador;
        fin
        sino
        inicio
            si si-es-cero(n) y junto-a-zumbador entonces
            inicio
            mientras junto-a-zumbador hacer coge-zumbador;
            sal-de-instruccion;
            fin;
        fin;
    fin;
    define-nueva-instruccion busca(n) como
    inicio
        si no junto-a-zumbador entonces
        inicio
            deja-zumbador;
            repetir 4 veces inicio
                si frente-libre entonces
                inicio
                    riesgo(1);
                    repetir 2 veces gira-izquierda;
                fin;
                gira-izquierda;
            fin;
            coge-zumbador;
            toma(n);
        fin
        sino
        inicio
            coge-zumbador;
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces
                    inicio
                        coge-zumbador;
                        minimo(n);
                        si no junto-a-zumbador entonces repetir n veces deja-zumbador;
                        repetir 4 veces deja-zumbador;
                    fin
                    sino repetir 3 veces deja-zumbador;
                fin
                sino
                inicio
                    repetir 4 veces deja-zumbador;
                    repetir n veces deja-zumbador;
                fin;
            fin
            sino deja-zumbador;
        fin;
    fin;
    define-nueva-instruccion toma2(n) como
    inicio
        si no si-es-cero(n) y junto-a-zumbador entonces
        inicio
            coge-zumbador;
            toma2(precede(n));
        fin
        sino
        inicio
            si no junto-a-zumbador entonces
            inicio
                deja-zumbador;
                repetir 4 veces
                inicio
                    si frente-libre entonces
                    inicio
                        avanza;
                        a(n);
                        repetir 2 veces gira-izquierda;
                        avanza;
                        repetir 2 veces gira-izquierda;
                    fin;
                    gira-izquierda;
                fin;
                coge-zumbador;
            fin;
        fin;
    fin;
    define-nueva-instruccion a(n) como
    inicio
        si no junto-a-zumbador entonces
        inicio
            repetir 4 veces inicio
                si frente-libre entonces
                inicio
                    riesgo(1);
                    repetir 2 veces gira-izquierda;
                fin;
                gira-izquierda;
            fin;
            toma2(n);
            mientras junto-a-zumbador hacer coge-zumbador;
        fin
        sino
        inicio
            coge-zumbador;
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces repetir 2 veces deja-zumbador
                sino
                inicio
                    deja-zumbador;
                    apagate;
                fin;
            fin
            sino deja-zumbador;
        fin;
    fin;
    define-nueva-instruccion ct como
    inicio
        repetir 3 veces
                inicio
                    si no junto-a-zumbador y frente-libre entonces
                    inicio
                        avanza;
                        si junto-a-zumbador entonces
                        inicio
                            coge-zumbador;
                            si junto-a-zumbador entonces
                            inicio
                                deja-zumbador;
                                repetir 2 veces gira-izquierda;
                                avanza;
                                repetir 3 veces gira-izquierda;
                            fin
                            sino deja-zumbador;
                        fin
                        sino
                        inicio
                            repetir 2 veces gira-izquierda;
                            avanza;
                            repetir 3 veces gira-izquierda;
                        fin;
                    fin
                    sino si no junto-a-zumbador entonces gira-izquierda;
                fin;
        fin;
    define-nueva-instruccion cp(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            cp(sucede(n));
        fin
        sino
        inicio
            repetir 2 veces gira-izquierda;
            deja-zumbador;
            deja-zumbador;
            mientras junto-a-zumbador hacer
            inicio
                coge-zumbador;
                repetir 3 veces gira-izquierda;
                si junto-a-zumbador entonces
                inicio
                coge-zumbador;
                ct;
                repetir 2 veces gira-izquierda;
                avanza;
                repetir 2 veces deja-zumbador;
                repetir 2 veces gira-izquierda;
                avanza;
                fin
                sino ct;
            fin;
            a(n);
        fin;
    fin;
    define-nueva-instruccion bsk como
    inicio
        si no junto-a-zumbador entonces
        inicio
            deja-zumbador;
            repetir 4 veces
            inicio
                si frente-libre entonces
                inicio
                    avanza;
                    bsk;
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                fin;
                gira-izquierda;
            fin;
            coge-zumbador;
        fin
        sino
        inicio
            coge-zumbador;
            si junto-a-zumbador entonces
            inicio
                repetir 2 veces coge-zumbador;
                si junto-a-zumbador entonces
                inicio
                    coge-zumbador;
                    cp(0);
                fin
                sino repetir 3 veces deja-zumbador;
            fin
            sino deja-zumbador;
        fin;
    fin;
    inicia-ejecucion
        busca(0);
        bsk;
        apagate;
    termina-ejecucion
finalizar-programa
