Turnuri de Hanoi

 Program Hanoi; 

var a,b,c:char;

 n:integer;

procedure hanoi(n:integer;a,b,c:char);

begin

if n=1 then writeln(a,b)

 else begin

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

 writeln(a,b);

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

 end;

end;

begin

write('n=');readln(n);

a:='a';b:='b';c:='c';

hanoi(n,a,b,c);

readln;

end.