del(i,il,il).
del(1,_,[]):-!.
del(Num,[X|T],[X|T1]):- Num > 0, N1 is int(N+1), del(N,T,T1).
?- del(5,[4,11,-5,8,2,3,9,-5,2,10],L),write(L).