Написать программу на языке Prolog, решающую следующую задачу: Удалить из списка элементы с номерами n, n+1 и n+2, вер

implement main
  open core, console

constants
  className = "main".
  classVersion = "".

class predicates
  del_List:(integer_list, integer, integer_list) procedure (i, i, o).
  skip:(integer_list, integer, integer_list) procedure (i, i, o).

clauses
  classInfo(className, classVersion).
  del_List([ ], _, [ ]) :- !.
  del_List(L1, 1, L2) :- skip(L1, 3, L2), !.
  del_List([H | T] , N, [H | L]) :- del_List(T, N - 1, L).
 
  skip(L, 0, L) :- !.
  skip([ ], _, [ ]) :- !.
  skip([_ | T], N, L) :- skip(T, N - 1, L).
 
clauses
  run():-
    init(),
    del_List([1,2,3,4,5,6,7,8,9,10,11,12], 6, L),
    write(L),
    _ = readChar().
end implement main

goal
  mainExe::run(main::run).