чтобы пользователь вводил элементы по приглашению.
ошибка.... подскажите как правильно

domains
l=integer*
 
predicates
del(l,integer,l)
readlist(l,integer)
result
 
clauses
readlist([],0).
readlist([_|T],N):-readlist(T,N1),N=N1+1.
del(L,D,[]):-readlist(L,N).
del([H|T],D,[H|T1]):-del(T,D,T1).
 
result:-
write("Vvedite kolichestvo elementov:"),
readint(N),nl,
write("Kolichestvo elementov dlya udaleniya:"),
readint(D),nl,
write("Vvodite spisok:"),
readlist(L,N),nl,
del(L,D,L1),
write("novij spisok:",L1).
 
goal
result.