algoritma rekursif hanoi

program hanoi_yody;
uses wincrt;
procedure menarahanoi (jumlah : integer; sumber, tujuan, bantuan : char; var langkah : integer);
begin
if jumlah = 1 then
   begin
   langkah :=langkah + 1;
   write('langkah : ',langkah);
   writeln(' pindahkan piringan 1 dari menara ',sumber,' ke menara ', tujuan);
   end
  else
    begin
    menarahanoi(jumlah-1,sumber, bantuan, tujuan, langkah);
    langkah :=langkah +1;
    write('langkah : ',langkah);
    write(' pindahkan piringan ',jumlah);
    writeln(' dari menara ',sumber,' ke menara ', tujuan);
    menarahanoi(jumlah-1 ,bantuan, tujuan, sumber, langkah);
    end;
  end;
  var
  jumlah, langkah : integer;
  sumber,bantuan,tujuan : char;
begin
write(' masukkan jumlah piringan : '); readln(jumlah);
langkah :=0;
sumber := 'A'; bantuan := 'B'; tujuan := 'C';
menarahanoi(jumlah, sumber, tujuan, bantuan, langkah);
readln;
end.