DEFA (WORD)     // алгоритм 27
{               // N = (сумма номеров)*2
  ALGORITHM
  DEF f
  {
    S1E1 -> num(S1)+f(E1)
      E1 -> 0
  }
  DEF A
  {
    E1 -> calc([f(E1)]*2)
  }
  TESTS
  а; ба; еда; гад; ага; баба; вава; гага; ад; да; в; абба;
  дева; ева; гав; вега; авв; гавгав; беда; бега;
}
