?- odeber(1, [1,2,3,4,1,5,6], X).
X = [2, 3, 4, 5, 6] ;
false.
-----------------------------------------

%odeber(+Prvek, +Seznam, -Vysledek).

odeber(Prvek, Seznam, Vysledek) :- odeber(Prvek, Seznam, A, Vysledek).
odeber(Prvek, [], A, A).
odeber(Prvek, [X|XS], A, Y) :- odeber(Prvek, XS, [X|A], Y), X\=Prvek.