ЗАДАЧА Башня(k: ЦЕЛ; a, b, c: ЗНАК);
УКАЗ ЕСЛИ k > 1 ТО Башня(k - 1, a, c, b) КОН;
Вывод.Цепь("С "); Вывод.ЗнакЦепи(a);
Вывод.Цепь(" на "); Вывод.ЗнакЦепи(b);
Вывод.Цепь(".^");
ЕСЛИ k > 1 ТО Башня(k - 1, c, b, a) КОН
КОН Башня;
Использование: k - число колец, a, b, c - буквенные обозначения штырей.