iniciar-programa
define-nueva-instruccion apagon(d) como inicio
    si frente-libre entonces inicio
       si derecha-libre entonces inicio
          avanza;
          si orientado-al-norte entonces inicio
             apagon (sucede(d));
          fin
          sino
             si orientado-al-sur entonces inicio
                apagon (precede(d));
             fin
             sino inicio
                si orientado-al-este o orientado-al-oeste entonces apagon(d);
             fin;
       fin sino inicio
        gira-izquierda;
        apagon(d);
       fin;
    fin sino inicio
    repetir d veces deja-zumbador;
    fin;
fin;
    inicia-ejecucion
    apagon(0);
        apagate;
    termina-ejecucion
finalizar-programa
