Пожалуйста посчитайте номер 3 пожалуйста

Var
   i,F:integer;
   y:real;
Begin
y:=1;
F:=1;
Write('y = ');
For i:= 1 to 10 do
    Begin
    F:=F*i;
    if i mod 2 <> 0 then
       Begin
       y:=y*(1+1/F);
       Write('(1+1/',F,')')
       End
    else
       Begin
       y:=y*(1-1/F);
       Write('(1-1/',F,')')
       End
    End;
Write(' = ',y);
End.



y = (1+1/1)(1-1/2)(1+1/6)(1-1/24)(1+1/120)(1-1/720)(1+1/5040)(1-1/40320)(1+1/362880)(1-1/3628800) = 1.12600512949776