Решить следующие задачи

domains
ilist=integer*
i=integer 
predicates
gen(i,i,i,ilist).
vvod(i,i,i).
clauses
vvod(N,M,K):-write("vvedite M:"),readint(M),nl,
write("vvedite K:"), readint(K),nl,write("vvedite Kol-vo:"),readint(N).
gen(0,_,_,[]):-!.
gen(N,M,K,[H|Tail]):-N1=N-1, gen(N1,M,K,Tail),
        A=K+1-M, random(A,B), H=B+M.
   
goal
vvod(N,M,K),gen(N,M,K,L).

domains
ilist=integer*
i=integer 
predicates
gen(i,i,i,ilist).
vvod(i,i,i).
print(i,i,i,ilist).
invert(ilist,ilist).
peremesh(ilist,ilist,ilist).
p(ilist,ilist).
clauses
vvod(N,M,K):-write("vvedite M:"),readint(M),nl,
write("vvedite K:"), readint(K),nl,write("vvedite Kol-vo:"),readint(N).
gen(0,_,_,[]):-nl,!.
gen(N,M,K,[H|Tail]):-N1=N-1, gen(N1,M,K,Tail),
        A=K+1-M, random(A,B), H=B+M.
   
   print(0,0,0,[]):-!.
print(Neg,Poz,Nll,[H|T]):- H<0,!,print(Neg1,Poz,Nll,T),Neg=Neg1+1.
print(Neg,Poz,Nll,[H|T]):-H=0,!,print(Neg,Poz,Nll1,T),Nll=Nll1+1.
print(Neg,Poz,Nll,[H|T]):-H>0,!,print(Neg,Poz1,Nll,T),Poz=Poz1+1.   
 
 
invert(L, Otvet):-peremesh(L, [], Otvet). 
peremesh([ ], Otvet, Otvet):- !. 
peremesh([H|T], Novspis, Otvet):- peremesh(T, [H|Novspis], Otvet).
 
p([X|L],[X,X,X|L1]) :- p(L,L1).
p([],[]).
   
goal
vvod(N,M,K),gen(N,M,K,L),print(Neg,Poz,Nll,L),invert(L, Otvet),p(L,L1).