По данному числу 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;BeginWrite('n = ');ReadLn(n);If n > 100000 ThenWriteLn('Ошибка!')ElseBeginr := 0;For i := 0 To n DoBeginr := r + a; a := (1 - (i and 1) shl 1) * (1 / Abs(i * 2 + 1));End;WriteLn('Результат: ', r);End;ReadLn;End.