iniciar-programa

define-nueva-instruccion contar(x)como inicio
 si(junto-a-ZUMBADOR)entonces inicio
    coge-zumbador;
    contar(x);
    deja-zumbador;
 fin
 sino inicio
  mientras(frente-libre)hacer avanza;
  gira-izquierda;
  mientras(derecha-bloqueada)hacer avanza;
  gira-izquierda; gira-izquierda; gira-izquierda;
  avanza;
  gira-izquierda; gira-izquierda; gira-izquierda;
  mientras(frente-libre)hacer avanza;
  gira-izquierda;
  repetir x veces avanza;
 fin;
fin;

define-nueva-instruccion pasar(x) como inicio
 si(frente-libre o junto-a-zumbador)entonces inicio
   contar(x);
   gira-izquierda; gira-izquierda;
   mientras(frente-libre)hacer avanza;
   gira-izquierda; gira-izquierda; gira-izquierda;
   mientras(izquierda-bloqueada)hacer avanza;
   gira-izquierda; avanza;
   gira-izquierda;
   mientras(frente-libre)hacer avanza;
   gira-izquierda; gira-izquierda; gira-izquierda;
   mientras(frente-libre)hacer avanza;
   gira-izquierda; gira-izquierda;
   repetir x veces avanza;
   si(frente-libre)entonces inicio
    avanza;
   fin;
    pasar(sucede(x));
   fin;
fin;

    inicia-ejecucion

mientras(no-orientado-al-este)hacer gira-izquierda;
pasar(0);

        apagate;
    termina-ejecucion
finalizar-programa
