По данному числу 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.