; Разработать функцию, находящую сумму элементов с нечетными
; номерами в заданном списке чисел.
; Например:
; Вход: (2 4 3 1 7 2 4).
; Выход: 16.

(defun main (LST &optional (F T) (SUM 0))
    (cond
        ; если список пуст возвращаем sum
        ((null LST) SUM)

        ; если F == T (элемент на нечетной позиции)
        ; добавляем первый элемент в sum,
        ; оставшийся список передаем дальше в рекурсию
        ((eq F T) (main (cdr LST) nil (+ sum (car LST))))

        ; если F == nil (элемент на четной позиции)
        ; передаем список дальше в рекурсию
        ((eq F nil) (main (cdr LST) T sum))
    )
)