Здесь есть решение в Python, но в шк Pascal. Напишите решение для Pascal плиз. Или просто...

Question

Здесь есть решение в Python, но в шк Pascal. Напишите решение для Pascal плиз. Или просто решение, или с помощью Excel. Даю 20 баллов. В основу эффективного решения головоломки «Ханойская башня» положен алгоритм, суть которого сводится к следую­щему: для перемещения башни, состоящей из п колец, сперво­го стержня на третий мы должны решить чуть более простую задачу переместить на второй стержень башню, состоящую из п-1 кольца. После этого нижний диск с первого стержня пе­ремещается на третий и повторно осуществляется перемеще­ние башни из п-1 кольца, но уже со второго диска на третий. Таким образом, число ходов, необходимых для перемещения башни из л колец, равно удвоенному числу ходов, необходи­мых для перемещения башни из и-1 кольца, и ещё одному ходу. Используйте эту закономерность для вычисления числа ходов, необходимых для перемещения башни из 64 колец. Вы­числите, сколько времени займёт такое перемещение, если считать, что на один ход требуется 1 секунда.

Answer 1

function Hanoi(n: integer): uint64;

begin

   if n = 1 then

   begin

       Result:=1;

       exit();

   end

   else

   begin

       Result:=2 * Hanoi(n-1) + 1;

   end;

end;

begin

   writeln(hanoi(64));

end.