Ханойская башня

Program Hanoi3; {3*— потому что для трех стержней}
uses crt;
Var N : byte;
Procedure Hanoi(first,second,third,N : byte); {first, second, third*— номера начального, промежуточного и конечного стержней, N*— количество дисков, которые надо перенести}
Begin
 If N=1 then
 writeln(first,' --> ',third,'; ') {тривиальный перенос одного диска*— вместо вывода на экран можно вызвать процедуру, отображающую перенос графически}
 else
 begin
  Hanoi(first,third,second,N-1); {перенос N-1 дисков на промежуточный стержень}
  Hanoi(first,second,third,1); {перенос 1*диска на конечный стержень}
  Hanoi(second,first,third,N-1); {перенос N-1 дисков с промежуточного на конечный стержень}
 end;
End;
Begin
 {ввод N*— количество дисков}
  write('n=');
  read(n);
 if N>0 then
 Hanoi(1,2,3,N); {переносим N дисков с стержня №1 на стержень №3}
//здесь поменяй местами 2 и 3 в параметрах процедуры
End.