В языке 1-го племени есть только латинские буквы А, B и

Для начала представим, что А = 0, B = 1, C = 2. Тогда следующий код отыщет подходящую последовательность букв (но только в зеркальном отражении).
var a:array[1..7] of integer;
i:integer;
begin
i:=0;
while (ilt;gt;2016) do //цикл, работающий с итератором
begin
inc(i); //увеличить итератор
inc(a[1]);
a[2]:=a[2]+a[1] div 3; // изменение всех переменных попеременно
a[3]:=a[3]+a[2] div 3;
a[4]:=a[4]+a[3] div 3;
a[5]:=a[5]+a[4] div 3;
a[6]:=a[6]+a[5] div 3;
a[7]:=a[7]+a[6] div 3;
a[1]:=a[1] mod 3;
a[2]:=a[2] mod 3;
a[3]:=a[3] mod 3;
a[4]:=a[4] mod 3;
a[5]:=a[5] mod 3;
a[6]:=a[6] mod 3;
a[7]:=a[7] mod 3;
end;
writeln;
for i:=1 to 7 do write(a[i], ); // вывод получится последующим : 0 0 2 2 0 2 2, т. е. знаки будут BBABBAA
end.