Жители государства "Знание-сила" очень любят математические головоломки. Даже тот, кто желает получить въездную визу в и

##
WriteAllText('input.txt',  'АГЕИКЛМОРТ'+NewLine+'4'+NewLine+'8267'
+NewLine+'19929'+NewLine+'54262'+NewLine+'000000000000000');
 
var f := ReadAllLines('input.txt');
f[2:].ForEach(i-> begin while i.Length > 1 do i := i.Sum(t-> t.toDigit).toString;
  write(f[0][i.ToInteger+1]) end)

##
var f := ReadAllLines('input.txt');
WriteAllText('output.txt',  f[2:].Select(i-> begin while i.Length > 1 do i := i.Sum(t-> t.toDigit).toString;
  Result := f[0][i.ToInteger+1] end).JoinToString)

##
var f := ReadAllLines('input.txt'); // f присвоить массив строк = [строка 1 из файла, строка 2 из файла, ...]
WriteAllText('output.txt',  //записать в текстовый файл, текстовую строку идущую после запятой
f[2:]. //делаем срез переменной f, первые две строки f[0] и f[1] пропускаем
Select(i-> //преобразовываем каждый эмемент массива f[2:]; переменной i присваиваем поочередно строки из массива
begin while i.Length > 1 do //пока длина строки i больше единицы, делаем..
  i := i.Sum(t-> t.toDigit).toString; //преобразование i: 8267'→ 8+2+6+7→'26'→2+6→'8', и т.д.
Result := f[0][i.ToInteger+1] end) //запоминаем в результирующем массиве буквы из f[0] с индексом  8+1, и т.д.
.JoinToString);//результирующий массив букв ['Л','И','Г','А'] объединяем и преобразовываем в текстовую строку 'ЛИГА'