iniciar-programa

define-nueva-instruccion girando(n) como
repetir n veces gira-izquierda;

define-nueva-instruccion compara(n) como inicio
si junto-a-zumbador entonces inicio
repetir n veces
coge-zumbador;
si junto-a-zumbador entonces inicio
repetir n veces
deja-zumbador;
si frente-libre entonces inicio
avanza;
compara(n);
fin
sino inicio
girando(2);
mientras frente-libre y orientado-al-sur hacer
avanza;
gira-izquierda;
si frente-libre entonces inicio
avanza;
gira-izquierda;
compara(n);
fin
sino inicio
girando(2);
mientras frente-libre hacer
avanza;
girando(3);
compara(sucede(n));
fin;
fin;
fin
sino inicio
si no-junto-a-zumbador entonces inicio
repetir 100 veces
deja-zumbador;
apagate;
fin;
fin;
fin;
fin;

    inicia-ejecucion
    mientras nO-oriENTAdo-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    girando(3);
    mientras frente-libre hacer
    avanza;
    girando(3);
    si junto-a-zumbador entonces inicio
    compara(1);
    fin
    sino inicio
    si no-junto-a-zumbador entonces
    repetir 100 veces
    deja-zumbador;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
