Мистер Фокс придумывает себе пароль. Он хочет, чтобы он состоял из заглавных латинских букв и был достаточно случайным, поэтому для его создания придумал такой алгоритм. Сначала он пишет на доске первую букву латинского алфавита: A, затем стирает ее и пишет такое “слово”: BAA (сначала вторая буква латинского алфавита, потом два раза приписывает то, что стер с доски перед этим). Затем он снова все стирает. На третьем шаге мистер Фокс пишет третью букву алфавита, а потом дважды повторяет то, что стер перед этим (получилась строка CBAABAA) и так далее. Написав девятое слово, он останавливается и генерирует пароль: пароль состоит из записанных подряд букв девятой строки, стоящих на первом, 510, 5, 258 и 68 местах. Какой пароль получился у мистера Фокса? Комментарий. Если бы в девятой строке на первом, 510, 5, 258 и 68 местах стояли бы буквы A, B, C, D и E, то в качестве ответа нужно было бы вывести строку ABCDE.

var    s: string;     c, i: integer;begin    c := ord('A') - 1;    s := '';    for i := 1 to 9 do    begin        s := Chr(c + i) + s + s;          writeln(i, ' - ', s);     end;     writeln('Password - ', s[1], s[510], s[5], s[258], s[68]);end.Вывод 1 - A2 - BAA3 - CBAABAA4 - DCBAABAACBAABAA5 - EDCBAABAACBAABAADCBAABAACBAABAA6 - FEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA7 - GFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA8 - HGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAA9 - IHGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAHGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAGFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAFEDCBAABAACBAABAADCBAABAACBAABAAEDCBAABAACBAABAADCBAABAACBAABAAPassword - IAEGE