用pascal解决梵塔问题

楼上的没打readln；所以看不到结果的，我都试了，应该这样：
program fanta;

var n: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
write('Enter n=');
readln(n);
move(n,1,2,3);
readln;
end.

program fanta;

var n: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
write('Enter n=');
readln(n);
move(n,1,2,3);
readln;
end.

program fanta;
var
n: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,'---