Решение:

% Тестирование (текст программы)

%1 ?- p(s,3,[1,2,3,4,t],T).

%

%T = [1, 2, s, 3, 4, t] ;

%

%No

%2 ?- p(a,1,[1,2,3,4,t],T).

%

%T = [a, 1, 2, 3, 4, t] ;

p(X,1,L,[X|L]).

p(X,N,[A|V],[A|L]):-

N>1,

N1 is N-1,

p(X,N1,V,L).

Удачи, в информатике)