Дано дерево глубины N, каждая внутренняя вершина которого имеет

uses System.Collections.Generic;
 
type
   Tst =
   record
      level : Integer;
      sum : Integer;
      s : string;
   public
      constructor Create(_level : Integer; _sum : Integer; _s : string);
      begin
         Self.level := _level;
         Self.sum := _sum;
         Self.s := _s;
      end;
   end;
   
var
   myStack : System.Collections.Generic.Stack<Tst>;
   
procedure Walk(n : Integer);
const
   Letters : array[-1 .. 1] of Char = ('C', 'B', 'A');
begin
   myStack := new System.Collections.Generic.Stack<Tst>;
   myStack.Push(new Tst(1, 0, ''));
   while myStack.Count > 0 do
   begin
      with myStack.Pop do
         if level = n then
         begin
            if sum = 0 then writeln(s)
         end
         else
            for var i := -1 to 1 do
               if (s = '') or (s[Length(s)] <> Letters[i]) then
                  myStack.Push(new Tst(level + 1, sum + i, s + Letters[i]));
   end;  
end;
 
var
   n : integer;
begin
   readln(n);
   walk(n);
end.

const
   maxDepth = 100;
var
   stackPos : Integer;
   level : array[0 .. maxDepth - 1] of Integer;
   sum : array[0 .. maxDepth - 1] of Integer;
   s : array[0 .. maxDepth - 1] of String;
   
procedure InitStack;
begin
   stackPos := -1;
end;
 
function Push(_level, _sum : Integer; _s : String) : Boolean;
begin
   Inc(stackPos);
   if stackPos < maxDepth then
   begin
      level[stackPos] := _level;
      sum[stackPos] := _sum;
      s[stackPos] := _s;
      Push := true;
   end
   else Push := false;
end;
 
function Pop(var _level, _sum : Integer; var _s : String) : Boolean;
begin
   if stackPos > -1 then
   begin
      _level := level[stackPos];
      _sum := sum[stackPos];
      _s := s[stackPos];
      Dec(stackPos);
      Pop := True;
   end
   else Pop := False;
end;
   
procedure PWalk(n : Integer);
const
   Letters : array[-1 .. 1] of Char = ('C', 'B', 'A');
var
   currLevel, currSum : Integer; currS : String;
   i : Integer;
begin
   InitStack;
   Push(1, 0, '');
   while stackPos > -1 do
   begin
      Pop(currLevel, currSum, currS);
      if currLevel = n then
      begin
         if currSum = 0 then writeln(currS);
      end
      else
         for i := -1 to 1 do
            if (currS = '') or (currS[Length(currS)] <> Letters[i]) then
               Push(currLevel + 1, currSum + i, currS + Letters[i]);
   end;
end;
 
var
   n : integer;
begin
   readln(n);
   pwalk(n);
end.