Task6.1.4

%Сформировать список [2, 4, 6, 8, 10] и удалить из него введенное число.

%genl(_, 0, _, []):-!.
%genl(Del, M, Del, L):- M1 is M-1, N1 is Del+2, genl(Del, M1, N1, L), !.
%genl(Del, M, N,[N|L]):-M1 is M-1, N1 is N+2, genl(Del, M1, N1,L).

%genl(8, 5, 2, L)
%genl(Удалить, Количество, Начало, _)


genl(0, _, []):-!.
genl(M, N,[N|L]):-M1 is M-1, N1 is N+2, genl(M1, N1,L).

delete([], _, []):-!.
delete([Del|Tail], Del, ResultTail):-delete(Tail, Del, ResultTail), !.
delete([Head|Tail], Del, [Head|ResultTail]):-delete(Tail, Del, ResultTail).

del(Del, Count, Start, Res):-genl(Count, Start, Res1), delete(Res1, Del, Res).

%del(4, 5, 2, Res)