iniciar-programa
define-nueva-instruccion gira(n) como inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion perimetro(m) como inicio
si izquierda-bloqueada entonces inicio
avanza;
perimetro(sucede(m));
fin sino inicio
si no orientado-al-sur y izquierda-libre entonces inicio
gira(1);
avanza;
fin;
si izquierda-bloqueada entonces perimetro(sucede(m));
fin;
si orientado-al-sur y izquierda-libre entonces inicio
mientras frente-libre hacer avanza;
si frente-bloqueado entonces gira(1);
avanza;
repetir m veces deja-zumbador;
fin;
fin;
define-nueva-instruccion divi(p) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
divi(sucede(p));
fin sino inicio
avanza;
si junto-a-zumbador entonces inicio
mientras junto-a-zumbador hacer inicio
repetir p veces coge-zumbador;
repetir p veces inicio
avanza;
deja-zumbador;
fin;
gira(2);
mientras frente-libre hacer avanza;
si frente-bloqueado entonces gira(2);
repetir 2 veces avanza;
fin;
fin;
fin;
fin;
define-nueva-instruccion termina(k) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
termina(sucede(k));
fin sino inicio
gira(2);
avanza;
repetir k veces deja-zumbador;
gira(2);
repetir 2 veces avanza;
fin;
fin;
define-nueva-instruccion termina2(a) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
termina2(sucede(a));
fin sino inicio
si frente-libre entonces inicio
si frente-libre entonces avanza;
termina2(a);
fin sino inicio
si frente-bloqueado entonces inicio
gira(2);
mientras no junto-a-zumbador hacer avanza;
gira(2);
avanza;
repetir a veces deja-zumbador;
fin;
fin;
fin;
fin;
    inicia-ejecucion
    avanza;
    gira(3);
    mientras izquierda-libre hacer avanza;
    mientras izquierda-bloqueada y no orientado-al-sur hacer perimetro(1);
    si junto-a-zumbador entonces gira(2);
    avanza;
    mientras no junto-a-zumbador hacer avanza;
    si junto-a-zumbador entonces gira(2);
    divi(0);
    avanza;
    termina(0);
    termina2(0);
        apagate;
    termina-ejecucion
finalizar-programa
