iniciar-programa
define-nueva-instruccion gira-derecha como inicio
    gira-izquierda; gira-izquierda; gira-izquierda;
fin;
define-nueva-instruccion camina como inicio
si derecha-libre entonces inicio
        gira-derecha;
    fin;
    si derecha-bloqueada entonces inicio
        avanza;
    fin sino inicio
        avanza;
    fin;
fin;
define-nueva-instruccion distancia(x) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        distancia(sucede(x));
    fin sino inicio
    repetir x veces inicio
        deja-zumbador;
    fin;
    deja-zumbador;
        avanza;
        deja-zumbador;
        deja-zumbador;
        avanza;
        mientras no-junto-a-zumbador hacer inicio
            repetir x veces inicio
                camina;
            fin;
            si no-junto-a-zumbador entonces inicio
            deja-zumbador;
            deja-zumbador;
            camina;
            fin;
        fin;
    fin;
fin;
define-nueva-instruccion camina2 como inicio
    si derecha-bloqueada entonces inicio
        avanza;
    fin sino inicio
        gira-derecha;
        avanza;
    fin;
fin;
define-nueva-instruccion cuenta(n) como inicio
si frente-libre entonces inicio
        camina2;
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                cuenta(sucede(n));
            fin sino inicio
            deja-zumbador;
                mientras no-orientado-al-oeste hacer gira-izquierda;
                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;
                avanza;
                avanza;
                repetir n veces inicio
                    deja-zumbador;
                fin;
                gira-izquierda;
                gira-izquierda;
                mientras frente-libre hacer avanza;
            fin;
        fin;
        cuenta(n);
        fin;
fin;
define-nueva-instruccion rellena como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        si no-junto-a-zumbador entonces inicio
        mientras no-junto-a-zumbador hacer inicio
        camina;
        fin;
        rellena;
        fin;
    fin;
fin;
define-nueva-instruccion perimetro(m) como inicio
    si no-junto-a-zumbador y frente-libre entonces inicio
        camina;
        perimetro(sucede(m));
        perimetro(m);
    fin sino inicio
        mientras no-orientado-al-oeste hacer gira-izquierda;
                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;
                avanza;
                avanza;
                avanza;
                si no-junto-a-zumbador entonces inicio
                repetir m veces inicio
                    deja-zumbador;
                fin;
                fin;
                mientras no-orientado-al-oeste hacer gira-izquierda;
                mientras frente-libre hacer avanza;
    fin;
fin;
define-nueva-instruccion resta(a) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        resta(sucede(a));
    fin sino inicio
        repetir a veces inicio
            deja-zumbador;
        fin;
        avanza;
        repetir a veces inicio
            coge-zumbador;
        fin;
    fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-este hacer gira-izquierda;
    avanza;
    gira-izquierda;
    coge-zumbador;
    distancia(0);
    mientras no-orientado-al-norte hacer gira-izquierda;
    avanza;
    cuenta(0);
    gira-izquierda;
    gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
    avanza;
    mientras no-junto-a-zumbador hacer inicio
        camina2;
    fin;
    deja-zumbador;
    camina2;
    mientras no-junto-a-zumbador hacer inicio
        camina2;
    fin;
    rellena;
    camina2;
    perimetro(1);
    mientras no-orientado-al-oeste hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    gira-izquierda;
    gira-izquierda;
    avanza;
    avanza;
    resta(0);
        apagate;
    termina-ejecucion
finalizar-programa
