Номер заданного элемента - Prolog

domains
L=integer*
N=integer.
 
predicates
conc(L,L,L)
rev(L,L)
rd(N,L).
 
clauses
rd(0,[]).
rd(N,L):-
readint(A),
N1=N-1, rd(N1,L1),
L=[A|L1].
 
conc([],X,X).
conc([H|T],X,[H|Z]):-
conc(T,X,Z).
 
rev([],[]).
rev([H|T],Z):-
rev(T,Q), conc(Q,[H],Z).
/* номер позиции элемента*/
find_pos(list,int,int)
/* номер позиции элемента*/
find_pos([],_,0):-!.
find_pos([H|T],X,K):- X<>H,K1=K+1,find_pos(T,X,K1).
find_pos(_,_,K):-write(K),nl,!.
/* выведет элемент под номером N*/
find_n([],_,0):-!.
find_n([_|T],N,K):- N<>K,K1=K+1,find_n(T,N,K1).
find_n([H|_],_,_):-write(H),nl,!.
/*--------------------------------*/
/* удалить элемент с заданным номером */
del_n(list,int,int,list,list)