Programme

program HANOI ;

var

   nbDisques : integer ;

procedure deplacer(nDisk, trOrig, trDest, trInterm: integer);

begin

   if nDisk > 0 then

   begin

      deplacer (nDisk - 1 , trOrig, trInterm, trDest) ;

      deplacer ('Déplacer le disque de ', trOrig,' à',trDest);

      deplacer (nDisk - 1 , trInterm, trDest, trOrig) ;

   end;

end;

begin

   writeln('Entrez le nombre de disques :');

   readln(nbDisques);

   deplacer (nbDisques, 1 , 3 , 2 );

end ;