2 задачи на Prolog'е

[Stasmotion]

Prolog 5.2

1. Вычислить сумму первых n членов ряда 2+4+6+8....
1+3+5+7....
2. Посчитать количество отрицательных(положительных) элементов списка

Первую задачу вроде бы теоретически представляю как решить, но работать она ни как не хочет(для 1+3+5+7)

predicates
sum(integer,integer,integer)
go( )
clauses
sum(1,1,1):-!.
sum(N,B,S):-N1=N-1
sum(N1,B1,S1),
B=B1+2
S=S1+B.
go():-write("Введите число элементов N"),
nl,
readint(N),
sum(N,_,S)
write(S),
nl.
goal
go()

и что нужно изменить для ряда 2+4+6+8.. тоже никак не додумаю