Program Hanoj;
var N:integer;

procedure prenes(kolik:integer; odkud,pomoci,kam:char);
begin
 if kolik>0 then begin
   prenes(kolik-1,odkud,kam,pomoci);
   writeln('Prenasim disk z tyce ',odkud,' na tyc ',kam);
   prenes(kolik-1,pomoci,odkud,kam);
 end;
end;

begin
 writeln ('kolik disku je na tyci A ?');
 readln(N);
 prenes(N,'A','B','C');
end.