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

/* Poziva se sa: brisanje(Elemenat,Lista,Rezultat).   */