DEFA (NUMBER)   // алгоритм 45
{               // четные цифры числа, если их нет "?"
  ALGORITHM
  DEF f
  {
     TS1S2E1   -> S1f(even(S2)S2E1)
     FS1S2E1   -> f(even(S2)S2E1)
     TS1       -> S1
     FS1       ->
  }
  DEF g
  {
     S1E1     -> S1E1
     E1       -> ?
  }
  DEF A
  {
     S1E1  -> g(f(even(S1)S1E1))
       E1  -> ?
  }
  TESTS
  rnd(10, 60000);
}
