procedure Solve(n: integer; a,b,c: Char);

begin

 if n > 0 then

 begin

  Solve(n-1, a, c, b);

  Writeln('Переместить диск со стержня ', a, ' на стержень ',b);

  Solve(n-1, c, b, a);

 end;

end;



begin

 Solve(4, '1','2','3');

end.