DEFA (NUMBER)  // алгоритм 49
{              // число цифр, смотрящих налево
  ALGORITHM
  DEF f
  {
     S1(123479)E1 -> 1+f(E1)
     S1E1         ->   f(E1)
     E1           ->   0
  }
  DEF A
  {
     E1     -> calc(f(E1))
  }
  TESTS
  rnd(1, 60000);
}

