Косяк в программе.

[Yu1iya]

Подскажите какой и где.)) Все работает, но выдает немного не те значения.
Задача: Дано действительное число Х. Вычислить:

! - факториал =)

PHP код:

Uses Crt;
Var i,n,c,o,b,x:longint;
p,F:real;
Begin
clrscr;
Writeln('vvedite X');
Readln(x);
F:=1;
N:=1;
p:=0;
For c:=0 to 6 do begin
o:=c*2+1;
n:=n+1;
For b:=1 to o do begin
F:=F*b;
N:=N*x;
End;
if (n div 2=0) then begin
p:=p- N/F;
end else begin
p:=p+ N/F;
end;
F:=1;
N:=1;
end;
Writeln (p);
Readln;
End. 


[rubius2008]

For c:=0 to 6 do begin 
o:=c*2+1; 
n:=n+1; {убрать, портит вычисление x^}
For b:=1 to o do begin 
F:=F*b; 
N:=N*x; 
End; 
if (с div 2=0) then begin {исправлено}
p:=p+ N/F; {исправлено}
end else begin 
p:=p- N/F;  {исправлено}
end; 
F:=1; 
N:=1; 
end;