Арифметическая задача, Не могу сделать.... Опции

[Sunder]

Привет, всем! Помогите пожалуйста на писать на Delphi программу, вычисляющую результат по следующей формуле:
∑ (сверху n, снизу i:=1) = ((-1) в степени i)*i?, где i? = 2*4*6*... (если i четно), 1*3*5*... (если i нечетно).
Это у нас экзамен на первом курсе такой был, в понедельник пересдачу назначили. Я вроде бы сделал, но препод говорит, что неправильно вычисляет
Помогите пожалуйста.