//Michal Zmuda
//problem wiez Hanoi

uses crt;
var n:byte;
procedure move(n:byte;x,y,z:char);          //x-poczatkowy;y-docelowy;z-pomocniczy
          begin                            //n-liczba krazkow do przelozenia
          if n=1 then writeln(x,'->',y)   //przekˆadanie jednego krazka
          else begin                     //
               move(n-1,x,z,y);         //przel. wszystkich oprocz ostatniego na pomocniczy
               move(1,x,y,z);          //przelozenie ostatniego na wlasciwy
               move(n-1,z,y,x);       //przel. pozostalych z pomocniczego na wlasciwy
               end;
          end;
BEGIN
clrscr;
write('Ile krazkow ma byc na wiezy Hanoi? ');
read(n);
move(n,'A','C','B');
readkey;
END.