{* Задача 119 *}

Unit ZADACH119;
Interface
Implementation
Begin
 writeln('Зашифровать слово, поставив букве её номер в алфавите. ');
End.

Program pas13584;

Uses zadach119.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a  : String;
  aa : String;
  l  : longint;
  i  : longint;
  j  : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('введите слово: ');
  readln(a);
  l := length(a);
  aa := 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
  For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
    For j := 1 To 32 Do {* Увеличиваем j от 1 до 32 с шагом 1 *}
      If aa[j] = a[i] Then
        write(j, ' ');
  readln; {* Ждем подтверждения пользователя *}
End.