iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion sitio(n)como inicio
gira(2);
si frente-bloqueado y junto-a-zumbador entonces inicio
gira(1);
mientras frente-libre y junto-a-zumbador hacer avanza;
si frente-bloqueado y junto-a-zumbador entonces inicio
gira(2);
sitio(n);
fin
sino
gira(1);
fin
sino gira(2);

si no junto-a-zumbador y frente-libre entonces inicio
avanza;
sitio(n);
fin;
si frente-bloqueado y no junto-a-zumbador entonces inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
si frente-bloqueado entonces  inicio
si orientado-al-sur entonces inicio
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador; apagate;
fin;
gira(2);
si junto-a-zumbador entonces avanza;
sitio(n);
fin;
avanza;
mientras junto-a-zumbador hacer inicio
si frente-bloqueado entonces inicio
si orientado-al-sur entonces inicio
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;
apagate;
fin;
gira(2);
si orientado-al-sur y junto-a-zumbador y izquierda-bloqueada entonces inicio
avanza;
si junto-a-zumbador entonces inicio
gira(2);
avanza;
gira(2);
sitio(sucede(sucede(sucede(n))));
fin;
fin;
sitio(n);
fin;
avanza;
fin;
gira(1);
sitio(n);
fin;

si junto-a-zumbador entonces inicio
mientras junto-a-zumbador y frente-libre hacer avanza;
si no junto-a-zumbador entonces
sitio(sucede(n));
gira(2);
mientras frente-libre hacer inicio
si frente-bloqueado entonces inicio
si orientado-al-sur entonces inicio
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;
apagate;
fin;





gira(2);
si junto-a-zumbador entonces avanza;
sitio(n);
fin;
avanza;
fin;
gira(1);
si frente-bloqueado entonces  inicio
si orientado-al-sur entonces inicio
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador; apagate;
fin;
gira(2);
si junto-a-zumbador entonces avanza;
sitio(sucede(n));
fin;
avanza;
mientras junto-a-zumbador hacer inicio
si frente-bloqueado entonces inicio
si orientado-al-sur entonces inicio
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;
apagate;
fin;
gira(2);
si junto-a-zumbador entonces avanza;
sitio(n);
fin;
avanza;
fin;
gira(1);
sitio(sucede(n));
fin;
fin;
    inicia-ejecucion
    mientras no orientado-al-norte hacer gira(1);
    repetir 3 veces inicio
    mientras frente-libre hacer avanza;
    gira(1);
    fin;
    gira(1);
    mientras junto-a-zumbador hacer inicio
    si frente-bloqueado y junto-a-zumbador entonces inicio
    gira(2);
    mientras frente-libre hacer avanza;
    coge-zumbador;
    apagate;
    fin;
    avanza;
    fin;
    gira(3);
    repetir 7 veces si frente-libre entonces avanza;
    si junto-a-zumbador entonces inicio
    gira(2);
    repetir 7 veces si frente-libre entonces  avanza;
    repetir 160 veces deja-zumbador;
    apagate;
    fin
    sino inicio
    gira(2);
    repetir 7 veces si frente-libre entonces avanza;
    gira(3);
    fin;

    sitio(0);

        apagate;
    termina-ejecucion
finalizar-programa
