По данному числу n вычислите сумму 2(1-1/3+1/5-1/7+...+(-1)n/(2n+1)). Формат входных данных: Вводится одно число n, не превосходящее 100000. Формат выходных данных: Необходимо вывести значение выражения

Program Zadacha1; Var n: LongInt; i: Integer; r, a: Real; Begin Write('n = '); ReadLn(n); If n > 100000 Then WriteLn('Ошибка!') Else Begin r := 0; For i := 0 To n Do Begin r := r + a;  a := (1 - (i and 1) shl 1) * (1 / Abs(i * 2 + 1)); End; WriteLn('Результат: ', r); End; ReadLn; End.