ojciec(edward,halina).
ojciec(jan,adam).
ojciec(piotr,krzysztof).
ojciec(jan,maria).
ojciec(adam,monika).
ojciec(adam,norbert).
matka(halina,monika).
matka(monika,maciej).
matka(ewa,maria).
matka(ewa,adam).
matka(maria,krzysztof).
plec(maciej,m).
plec(norbert,m).
plec(piotr,m).
plec(krzysztof,m).

dziadek(X,Y) :- ojciec(X,A),(ojciec(A,Y);matka(A,Y)).
brat(X,Y) :- rodzic(R,X),rodzic(R,Y),plec(X,m), X\==Y.
siostra(X,Y) :- rodzic(R,X),rodzic(R,Y), not(plec(X,m)), X\==Y.
rodzic(X,Y) :- ojciec(X,Y).
rodzic(X,Y) :- matka(X,Y).

potomek(X,Y) :- rodzic(Y,X).
potomek(X,Y) :- rodzic(Z,X),potomek(Z,Y).