man(John).
man(Max).
man(Anrew).
woman(Marry).
woman(Sonya).
woman(Kate).
woman(Helga).
woman(Anna).
parent(Max, Marry).
parent(Max, Sonya).
parent(Andrew, Helga).
kol_det(Max, Marry, 1).
kol_det(Andrew, Helga, 3).

Sister(X,Y):-parent(Z,X),parent(Z,Y),woman(X).

?-Sister(Marry,Y), write(Y).