PROGRAMMA IN PASCAL, LA TORRE DI HANOI

program hanoi
type piolo=1..3;
var n:integer;
procedure TOP (of: piolo; a:piolo);
begin
write ('sposta un disco dal piolo numero', da:1);
writeln ('al piolo numero', a:1);
end;
procedure TH (i=integer; x,y,z: piolo);
begin
if i=1 then TOP(x,y)
else
begin
TH(i-1,x,z,y);
TOP(x,y);
TH(i-1,z,y,x)
end
end;
begin
write ('numero di dischi ?');
readln(n);
TH(n,1,2,3)
end.