На паскале надо. Пожааалуйста.

Var
   P:real;
   n:integer;
Begin
P:=1;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
    P:=P*(1-1/(2*n));
WriteLn('P = ',P);
End.