/* Podeliti datu listu na nenegativan i negativan deo */
/* Poziva se sa: podeli(Lista,Rez1,Rez2). */

podeli([],[],[]):-!.
podeli([G|R],[G|R1],R2):-uslov(G),podeli(R,R1,R2),!.
podeli([G|R],R1,[G|R2]):-podeli(R,R1,R2).

uslov(X):-X>=0.