По данному числу n вычислите сумму 2 (1-1/3+1/5-1/7+…

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.