факториал, сложный(для меня :) ) Опции

[kr3v3tkus]

Код

program lol;
var s:real;n,z,i:integer;  
begin  
writeln('vvesti n');  
readln(n);  
s:=0;  z:=1;  
for i:=1 to n do
  begin
  z:=z+(2i-1);
  s:=s+(-exp(i*ln(1))/z);
  end;  
writeln(s:2:2);
readln;
end.

косяк с факториалом ((( не знаю как сделать факториал для скобки