add(E,[],[E]).
add(E,[H|T],[H|T1]):-add(E,T,T1).
readupto4(NewElements) :- write('Input the number of elements '),
read(NumberOfElements),
(NumberOfElements =< 4 ->
readupto4(NumberOfElements,NewElements)
; (write('Wrong number of elements entered.
The input list will not be modified.'),
NewElements = [])).
readupto4(NumberOfElements,[NewElement|NewElements]) :-
NumberOfElements > 0, !,
write('Input value :'), read(NewElement),
NumberOfElements1 is NumberOfElements - 1,
readupto4(NumberOfElements1,NewElements).
readupto4(0, []).
answer(OldList,NewList) :- readupto4(NewElements), add(OldList,NewElements,NewList).
Если число элементов не ограничено четвёркой, то
readupto4(NewElements) :- write('Input the number of elements '),
read(NumberOfElements),
readupto4(NumberOfElements,NewElements).