miejsce(J,F,St,A,Sz,R,M) :-
    L0 = [(0,pies),(1,papuga),(2,waz),(3,kot),(4,chomik),(5,kanarek),(6,rybka)],
    select(Sz, L0, L1), Sz\=(6,rybka), Sz\=(4,chomik), Sz\=(2,waz), Sz\=(3,kot), Sz\=(1,papuga), Sz\=(5,kanarek), /* Szymon nie ma rybki,chomika,węża,kota,papugi,kanarek*/
    select(J, L1, L2), J\=(4,chomik), J\=(0,pies),  J\=(6,rybka), J\=(1,papuga), J\=(3,kot), J\=(2,waz), /* Jarek nie ma chomika psa,rybki,papugi,kota,weza */
    select(F, L2, L3), F \= (1,papuga), F \= (5,kanarek), F \= (2,waz), F \= (3,kot), F \= pies,/* Franek nie ma papugi,kanarka,kota,psa*/
    select(R, L3, L4), R \= (0,pies), R \= (4,chomik), R \= (6,rybka), R \= (1,papuga), R \= (2,waz),/* Robert nie ma psa,chomika,rybki,papugi,węża. */
    select(A, L4, L5), A \= (3,kot), A \=(5,kanarek), A \=(2,waz),  /* Albert nie ma kota,kanarka,weza */
    select(St, L5, L6), St \= (1,papuga), St \=(0,pies), St \= (4,chomik),  /* Stefan nie ma papugi,psa,chomika */
    select(M, L6,_), M \= (1,papuga). /* Marcin nie ma papugi*/