hanoj(N):- nl,write('Treba uraditi sledece:'),nl,nl,
           premestiti(N,leva,srednja,desna).

premestiti(0,_,_,_):-!.
premestiti(N,P,D,T):-M is N-1,
                     premestiti(M,P,T,D),
                     stampati(P,T),
                     premestiti(M,D,P,T).

stampati(A,B):-write('Premestiti disk sa igle '),write(A),
               write(' na iglu '),write(B),write('.'),nl.


/*  Poziva se sa: hanoj(Broj_diskova)   */