brisanje(_,[],[]).
brisanje(X,[X|Y],L):-brisanje(X,Y,L).
brisanje(X,[G|R],[G|Z]):-brisanje(X,Y,Z).

eliminacija([],L,L).
eliminacija(_,[],[]).
eliminacija([X|Y],L,A):-brisanje(X,L,B),eliminacija(Y,B,A).

/* Poziva se sa: eliminacija(Lista,Nestajuca_lista,Rezultujuca_lista).  */