вычисление факториала Опции

[tori]

нужно написать программу вычисления суммы факториалов всех нечетных чисел от n1 до n2 с использованием функции для вычисления факториала
попробуйте, пожалуйста, у меня вот что получилось

var
function fact(x:integer):real;
var i:integer; p:real;
begin
p:=1
 for i:=1 to x do
p:=p*i;
fact:=p;
end;
var:n1,n2,i:integer,S:real;
begin
S:=0;
for i:=n1 to n2 do
S=S+fact(i);
writeln('S= ",S);
readln;
end.

Вот примерно так, а куда четность вставить, я не знаю.
Это вроде ODD от n1 и n2 должно быть.
Спасибо огромное заранее.

М

tori, ставь теги! Выбор из меню над окном ввода.. Lapp