Курсовая работа: Задача о Ханойских башнях

writeln ('Peremestit" disk so sterzhnya ',a,' na sterzhen" ',b);(ввели)

Perenesti(n-1,c,b,a);

end;

end;

begin

clrscr;(очистка экрана)

writeln ('Vvedite natural"noe chislo n');

read (n);(ввод числовых данных)

a:='a'; b:='b'; c:='c';присвоение по членных переменных (то ,что до этого ввели)

Perenesti (n,a,c,b);

readln;(процедура чтения)

end.