DEFA (NUMBER)   // алгоритм 42
{               // упорядочивание цифр по возрастанию
  ALGORITHM     //
  DEF d
  {
     S1     ->
     S1S1E1  -> E1
     S1S2E1  -> S2d(S1E1)
  }
  DEF A
  {
     S1E1  -> min(S1E1) A(d(min(S1E1)S1E1))
       E1  ->
  }
  TESTS
  rnd(10, 60000);
}
