汉诺塔游戏（递归）

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label 1;
   var total:integer;
   procedure move(n,a,b,c:integer);
    begin
    if n=1 then writeln(a,'→',c)
        else begin
        move(n-1,a,c,b);
        writeln(a,'→',c);
        move (n-1,b,a,c)

         end;
        end;
  begin
 1:  writeln('输入要移动盘子的数量') ;
 read(total);
  move(total,1,2,3);
  goto   1;
end.