DEFA (WORD)     // алгоритм 31
{               // номер первой буквы слова по алфавиту
  ALGORITHM
  DEF A
  {
    S1E1  -> num(S1)
    E1    -> 0
  }
  TESTS
  африканец; атташе; аэродром; бабочка; базар; башня;
  батарея; вешалка; взрыв; винигрет; вождь; возмущение;
  газон; гармонь; гардероб; глина; глобус; гравий; горло;
  дворец; дверь; дельвин; диван; душа; дуэт; дыня;
  евангелие; еда; единица; ель; если; атом; атмосфера;
}
