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
).
bWFuKEpvaG4pLgptYW4oTWF4KS4KbWFuKEFucmV3KS4Kd29tYW4oTWFycnkpLgp3b21hbihTb255YSkuCndvbWFuKEthdGUpLgp3b21hbihIZWxnYSkuCndvbWFuKEFubmEpLgpwYXJlbnQoTWF4LCBNYXJyeSkuCnBhcmVudChNYXgsIFNvbnlhKS4KcGFyZW50KEFuZHJldywgSGVsZ2EpLgprb2xfZGV0KE1heCwgTWFycnksIDEpLgprb2xfZGV0KEFuZHJldywgSGVsZ2EsIDMpLgoKU2lzdGVyKFgsWSk6LXBhcmVudChaLFgpLHBhcmVudChaLFkpLHdvbWFuKFgpLgoKPy1TaXN0ZXIoTWFycnksWSksIHdyaXRlKFkpLg==