Человек придумывает себе пароль. он хочет, чтобы он состоял из заглавных латинских букв и был достаточно случайным, поэтому для его создания придумал такой алгоритм. сначала он пишет на доске первую букву латинского алфавита: a, затем стирает ее и пишет такое “слово”: baa (сначала вторая буква латинского алфавита, потом два раза приписывает то, что стер с доски перед этим). затем он снова все стирает. на третьем шаге он пишет третью букву алфавита, а потом дважды повторяет то, что стер перед этим (получилась строка cbaabaa) и так далее. написав девятое слово, он останавливается и генерирует пароль: пароль состоит из записанных подряд букв девятой строки, стоящих на первом, 511, 6, 257 и 67 местах. какой пароль получился у него? комментарий: если бы в девятой строке на первом, 511, 6, 257 и 67 местах стояли бы буквы a, b, c, d и e, то в качестве ответа нужно было бы вывести строку abcde.
var a:string;
b:char;
n:integer;
begin a:='A';
for n:=66 to 73 do begin
a:=Chr(n)+a+a;
end;
writeln(a);
write(a[1],a[511],a[6],a[257],a[67])
end.