skip([],[]).
skip([A|B],[A|C]):-replace(B,C,0).
 
replace([],[],_).
replace([_|B],[X|C],X):-skip(B,C).

:-skip([1,2,3,4,5],X),write(X).