zadanieNr15 :-

    Pietra = [0, 1, 2, 3, 4, 5, 6],
    Zwierzeta = ["waz", "papuga", "rybka", "kot", "pies", "kanarek", "chomik"],
    Waz = 0,
    Papuga = 1,
    Rybka = 2,
    Kot = 3,
    Pies = 4,
    Kanarek = 5,
    Chomik = 6,

    select(Jarek, Pietra, L1),  Jarek \= Pies, Jarek \= Rybka, Jarek \= Kot, Jarek \= Kanarek,
    select(Marcin, L1, L2),  Marcin \= Kot, Marcin \= Papuga, Marcin \= Chomik, Marcin \= Pies, Marcin \= Waz,
    Marcin < Jarek,
    select(Robert, L2, L3), Robert \= Kot, Robert \= Waz, Robert \= Kanarek, Robert < Marcin, Robert < Jarek,
    select(Stefan, L3, L4), Stefan \= Chomik, Stefan \= Waz, Stefan \= Rybka, Stefan \= Kanarek, Stefan < Marcin,
    Stefan < Jarek, Stefan > Robert,
    select(Albert, L4, L5), Albert \= Papuga, Albert \= Kot, Albert \= Rybka, Albert \= Chomik, Albert < Robert,
    Albert < Stefan, Albert < Marcin, Albert < Jarek,
    select(Franek, L5, L6), Franek \= Chomik, Franek \= Kanarek, Franek \= Pies, Franek \= Waz, Franek \= Kot,
    Franek \= Rybka, Franek < Stefan, Franek < Marcin, Franek < Jarek, Franek > Albert, Franek < Robert,
    select(Szymon, L6, _), Szymon \= Papuga, Szymon \= Rybka, Szymon \= Chomik, Szymon \= Kanarek, Szymon \= Waz,
    Szymon \= Pies, Szymon < Stefan, Szymon < Marcin, Szymon > Franek, Szymon > Albert, Szymon > Robert,
    Szymon < Jarek,

    nth0(Jarek, Zwierzeta, JZ),
    nth0(Marcin, Zwierzeta, MZ),
    nth0(Robert, Zwierzeta, RZ),
    nth0(Stefan, Zwierzeta, SZ),
    nth0(Albert, Zwierzeta, AZ),
    nth0(Franek, Zwierzeta, FZ),
    nth0(Szymon, Zwierzeta, SZZ),

    write('Jarek '), write(Jarek), write(' '), write(JZ), nl,
	write('Marcin '), write(Marcin),  write(' '), write(MZ), nl,
    write('Robert '), write(Robert),  write(' '), write(RZ), nl,
    write('Stefan '), write(Stefan),  write(' '), write(SZ), nl,
    write('Albert '), write(Albert),  write(' '), write(AZ), nl,
    write('Franek '), write(Franek),  write(' '), write(FZ), nl,
    write('Szymon '), write(Szymon),  write(' '), write(SZZ), nl.