логичко - 4 (Спротивна извдој)

(defun brojElementi (lista)
    (cond
        ((null lista) 0)
        ((listp (car lista))(+ (brojElementi (car lista))(brojElementi (cdr lista))))
        (t (+ 1 (brojElementi (cdr lista))))
        )
    )

(defun izbrisi (lista n1 n2 brojac)
    (cond
        ((null lista) nil)
        ((listp (car lista))(remove 'nil (cons (izbrisi (car lista) n1 n2 brojac)(izbrisi (cdr lista) n1 n2 (+ (brojElementi (car lista)) brojac)))))
        ((and (>= brojac n1)(<= brojac n2))(izbrisi (cdr lista) n1 n2 (+ 1 brojac)))
        ((or (< brojac n1)(> brojac n2))(cons (car lista)(izbrisi (cdr lista) n1 n2 (+ 1 brojac))))
        )
    )

(print (izbrisi '(1 2 (3 (4) 5 (6 (7)))(8 (9 (10 ((11))) 12)) (13 ((14) (15)))) 7 13 1))