Подсчитать в списке количество чисел, которые делятся на 3 - Lisp

написать програму, которая выписывает количество чисел которые делятся на 3

В списке

Листинг программы

ЗАДАЧА - подсчитать в списке количество чисел, которые делятся на 3:
(исходный список : (1 2 3 4 5 6) , результат : 2)

Объяснение кода листинга программы

Создается список исходных чисел: исходный список = (1 2 3 4 5 6).
Создается пустая переменная для подсчета чисел, которые делятся на 3: количество = 0.
Начинается цикл по элементам списка.
Каждый элемент списка проверяется на делимость на 3.
Если элемент делится на 3, то к переменной количество прибавляется 1.
По окончании цикла, значение переменной количество будет содержать количество чисел, которые делятся на 3.
Результат выводится на экран: результат = 2.