ne dovrseno

%neparna(L)

neparna([_]):-!.
neparna([_,_|L]):-neparna(L).

trud(istrazuvac(petko,petkov),[istrazuvac(ana,maneva),istrazuvac(atanas,atanasov)],
etai,datum(1,9,2007)).
trud(istrazuvac(atanas,atanasov),[ istrazuvac(petko,petkov)],fbit,datum(22,5,2008)).
trud(istrazuvac(petre,petrov),[istrazuvac(atanas,atanasov)],bbt,datum(28,7,2008)).
trud(istrazuvac(stojan,stojanov),[istrazuvac(atanas,atanasov)],int,datum(12,1,2009)).
trud(istrazuvac(jovan,jovanov),[istrazuvac(jana,paneva)],fbit,datum(22,5,2008)).

clen(X,[X|_]).
clen(X,[Y|L]) :- clen(X,L).

site_sorab(istrazuvac(X,Y),L):-
    findall(istrazuvac(A,B),((trud(istrazuvac(X,Y),L1,_,_),clen(istrazuvac(A,B),L1));
                           (trud(istrazuvac(A,B),L2,_,_),clen(istrazuvac(X,Y),L2));
                           	(trud(_,L3,_,_),clen(istrazuvac(A,B),L3),clen(istrazuvac(X,Y),L3)))

    ,L).