const M      = 8;  { Numero de bits a considerar a cada passada }
      NBITS  = 32; { Numero de bits da Chave }
      Base   = 256; 
RadixsortInt (A, n);
for i := 0 to (NBITS div M) - 1 do 
 Ordena $A$ sobre o @d\'{\i}gito@ $i$ menos significativo usando um algoritmo @est\'avel@;