{* Задача 136 *}

Unit ZADACH136;
Interface
Implementation
Begin
 writeln('Расшифровать слово, поставив соответствующую цифре букву ');
End.

Program pas13564;

Uses zadach136.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  t  : Array [1..33] Of String;
  a  : String;
  m  : integer;
  i  : integer;
  j  : integer;
  er : integer;
  k  : integer;
Begin
  clrscr; {* Очистка экрана *}
  write('а б в г д е ё ж з и й к л м н о');
  write('п р с т у ф х ч ш щ ъ ы ь э ю я');
  For j := 1 To 33 Do {* Цикл для j => [1 .. 33] *}
  Begin
    write('t[', j, ']=');
    readln(t[j]);
  End;
  write('введите шифр ');
  readln(a);
  m := length(a);
  For i := 1 To m Do {* Увеличиваем i от 1 до m с шагом 1 *}
    If a[i]', ' Then
      For j := 1 To 33 Do {* Цикл для j => [1 .. 33] *}
      Begin
        val(a[i], k, er);
        If k = j Then
          write(t[j]);
      End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.