% move(число_дисков, откуда, куда, через)
move(1,X,Y,_) :-  
         write('Move top disk from '), %передвиньте верхний диск с
         write(X), write(' to '), 
         write(Y), nl. 
move(N,X,Y,Z) :- 
         N>1, 
         M is N-1, 
         move(M,X,Z,Y), 
         move(1,X,Y,_), 
         move(M,Z,Y,X).