DEFA (NUMBER)   // алгоритм 34
{               // перевод числа в 8 систему
  ALGORITHM
  DEF A
  {
    S1(01234567) -> S1
    E1              -> A(calc(E1!8))A(calc(E1%8))
  }
  EXAMPLES
  7; 8; 9;
  TESTS
  rnd(8, 100);
}
