iniciar-programa
define-nueva-instruccion gira(n) como
inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion acomoda como
inicio
avanza;
gira(1);
avanza;
avanza;
gira(1);
avanza;
gira(3);
fin;
define-nueva-instruccion multiplicar(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
multiplicar(n);
repetir n veces deja-zumbador;

fin
sino
inicio
gira(3);
avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(3);
mientras frente-libre hacer avanza;
gira(3);
avanza;
fin;
fin;
define-nueva-instruccion cuenta(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta(sucede(n));
fin
sino
inicio
avanza;
multiplicar(n);
fin;
fin;



define-nueva-instruccion multiplica como
inicio
acomoda;
cuenta(0);
fin;
define-nueva-instruccion mueve(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
mueve(sucede(n));
fin
sino
inicio
repetir n veces deja-zumbador;
avanza;
repetir n veces deja-zumbador;
gira(3);
avanza;
gira(3);
avanza;

fin;
fin;
define-nueva-instruccion acomoda2 como
inicio
avanza;
avanza;
avanza;
gira(1);
avanza;
avanza;
gira(2);
mueve(0);
fin;
define-nueva-instruccion resid(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
resid(n);
repetir n veces coge-zumbador;
fin
sino
inicio
avanza;
gira(1);
avanza;
fin;
fin;
define-nueva-instruccion residuo(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
residuo(sucede(n));
fin
sino
inicio
repetir n veces deja-zumbador;
gira(1);
avanza;
gira(1);
avanza;
resid(n);
fin;
fin;
define-nueva-instruccion dividir(n) como
inicio
repetir n veces
si junto-a-zumbador entonces
inicio
coge-zumbador;
fin
sino
inicio
gira(3);
avanza;
gira(1);
avanza;
gira(1);
avanza;
gira(3);
residuo(0);
sal-de-instruccion;
fin;

gira(3);
avanza;
gira(1);
avanza;
gira(1);
avanza;
deja-zumbador;
gira(2);
avanza;
gira(3);
avanza;
gira(3);
avanza;
gira(3);
dividir(n);
fin;
define-nueva-instruccion cuenta2(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
cuenta2(sucede(n));
fin
sino
inicio
repetir n veces deja-zumbador;
gira(2);
avanza;
gira(1);
avanza;
gira(1);
avanza;
dividir(n);
fin;
fin;
define-nueva-instruccion divide como
inicio
acomoda2;
cuenta2(0);
fin;


    inicia-ejecucion
    divide;
    mientras no-orientado-al-sur hacer gira(1);
    avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(2);
    multiplica;

        apagate;
    termina-ejecucion
finalizar-programa
