Вычисление выражений на паскале

[neolanta]

Помогите пожалуйста,исправить ошибку.
Вычисление двойного факториала (2n+1)!! (например 9!!=9*7*5*3*1);

PROGRAM PR;
USES CRT;
VAR N,I,k:INTEGER;
    P:longint;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
k:=2*n+1;
FOR I:=k downTO 1 DO begin
dec(i,2);
P:=P*k;
end;
WRITELN(P);
END;
READKEY;
END.

не правильно выводит ответ. Ввожу n=4, выводит 729, а должно быть 945!!!

[Stilet]

i:=7; p:=9; while i>0 do begin
 p:=p*i;
 dec(i,2);
end;

[ZX Spectrum-128]

PROGRAM PR;
USES CRT;
VAR N,I,k:INTEGER;
P:longint;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
k:=2*n+1;
i:=k;
while i>1 do begin

P:=P*i;
i:=i-2;
end;
WRITELN(P);
END;
READKEY;
END.

[neolanta]

Сообщение от ZX Spectrum-128

PROGRAM PR;
USES CRT;
VAR N,I,k:INTEGER;
P:longint;
BEGIN
CLRSCR;
WRITELN('INPUT N');READLN(N);
IF N=0 THEN WRITELN('O!=1') ELSE
IF N<0 THEN WRITELN('VVEDITE POLOGITELNOE CHISLO') ELSE
BEGIN
P:=1;
k:=2*n+1;
i:=k;
while i>1 do begin

P:=P*i;
i:=i-2;
end;
WRITELN(P);
END;
READKEY;
END.

Спасибо огромное. Я Вам очень признательна!!!