DEFA (NUMBER)   // алгоритм 21
{               // сумма цифр числа - 1
  ALGORITHM
  DEF f
  {
    S1E1 -> S1+f(E1)
    E1   -> 0
  }
  DEF A
  {
    E1 -> calc(f(E1)-1)
  }
  TESTS
  rnd(10, 60000);
}
