iniciar-programa
define-nueva-instruccion gira-derecha como
inicio
 repetir 3 veces
  gira-izquierda;
 fin;
define-nueva-instruccion media-vuelta como
inicio
 repetir 2 veces
  gira-izquierda;
 fin;
define-nueva-instruccion multiplica(x) como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   multiplica(sucede(x));
  fin
 sino
  inicio
   avanza;
   mientras junto-a-zumbador hacer
    inicio
     coge-zumbador;
     gira-izquierda;
     avanza;
     gira-derecha;
     avanza;
     gira-derecha;
     avanza;
     repetir x veces
      deja-zumbador;
     media-vuelta;
     avanza;
     gira-izquierda;
     avanza;
     gira-izquierda;
     avanza;
     gira-izquierda;
    fin;
  fin;
fin;
define-nueva-instruccion sobran(x) como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   sobran(sucede(x));
  fin
 sino
  inicio
   gira-derecha;
   avanza;
   gira-derecha;
   avanza;
   repetir x veces
    deja-zumbador;
   apagate;
  fin;
fin;
define-nueva-instruccion divide(x) como
inicio
 si junto-a-zumbador entonces
  inicio
   coge-zumbador;
   divide(sucede(x));
  fin
 sino
  inicio
   gira-derecha;
   avanza;
   gira-izquierda;
   avanza;
   gira-izquierda;
   avanza;
   mientras junto-a-zumbador hacer
   inicio
    repetir x veces
     inicio
      si junto-a-zumbador entonces
       inicio
        coge-zumbador;
        gira-derecha;
        avanza;
        deja-zumbador;
        media-vuelta;
        avanza;
        gira-derecha;
       fin
       sino
       inicio
        gira-derecha;
        avanza;
        sobran(0);
       fin;
     fin;
    gira-derecha;
    avanza;
    mientras junto-a-zumbador hacer
     coge-zumbador;
    gira-izquierda;
    avanza;
    gira-izquierda;
    avanza;
    deja-zumbador;
    media-vuelta;
    avanza;
    gira-derecha;
    avanza;
    gira-derecha;
    avanza;
    gira-derecha;
    fin;
  fin;
 fin;
    inicia-ejecucion
    avanza;
    gira-izquierda;
    repetir 3 veces
     avanza;
    gira-izquierda;
    avanza;
    gira-izquierda;
    multiplica(0);
    gira-izquierda;
    avanza;
    avanza;
    divide(0);

        apagate;
    termina-ejecucion
finalizar-programa
