DEFA (WORD)   // алгоритм 29
{               // N = число гласных
  ALGORITHM
  DEF f
  {
    S1(аеиоуыэюя)E1 -> 1+f(E1)
    S1E1            -> f(E1)
    E1              -> 0
  }
  DEF A
  {
    E1 -> calc(f(E1))
  }
  TESTS
  кот; собака; обезьяна; корова; окно; экзамен; цвет;
  программа; мальчик; буйвол; клавиатура; булыжник; он;
  птица; магнитофон; лопата; луг; речка; профессия;
  аквариум;
}
