del(i,il,il).
del(1,_,[]):-!.
?- del(5,[4,11,-5,8,2,3,9,-5,2,10],L),write(L).