DEFA (WORD)     // алгоритм 14
{               // N = (число букв)/2
  ALGORITHM
  DEF A
  {
    E1 -> calc(len(E1)/2)
  }
  TESTS
  блок,,1; база,,1; ввод,,1; игла,,1; знак,,1; кадр,,1;
  бобина,,2; дефект,,2; запись,,2; колода,,2; машина,,1;
  перехват,,3; параметр,,3; передача,,3; перехват,,3;
  микросхема,,4;переходник,,4;расстояние,,4;сортировка,,4;
  нормализация,,5; обслуживание,,5; переключение,,5;
  программирование,,5; оборудование,,5; библиотекарь,,5;
}
