Вопрос 4. Написать программу для удаления элемента из списка по указанному номеру.

Код на Lisp
domains      
    int=integer      
    str=string      
    strp=str*      
      
predicates      
      
delete(int,strp,strp).  
/* удаление элемента из списка по номеру      
 параметры:  
 int - номер элемента   
 strp - исходный список  
  strp - получаемый список */      
clauses      
 delete(X,[],[]):- X>1 ,      
  write("   Номер больше числа элементов списка\n"),!.    
 delete(X,Y,Y):- X<1,write("Недопустимый номер\n"),!.  
 delete(1,[Head|Z],Z):- !.      
 delete(X,[Head|Y],[Head|Z]) :- X1=X-1,delete(X1,Y,Z).  
goal  
delete(2,["3","4","5","7","2","5"],R),write(R).
При использовании обязательна ссылка на http://DMTSoft.ru