PROLOG лабораторная

1) Вычислить сумму всех четных трехзначных чисел, не превышающих данного числа.

2) Написать программу, реализующую следующую функцию.
- подсчитать произведение всех отрицательных листьев дерева, заданного списком;
(Также задание можно посмотреть в DOC-файле--6 и 7 задание 1-ый вариант)