program Lab1_2;

uses System.SysUtils;

var
      n,i  : Integer;
      Output : Double;
      IsCorrect : Boolean;

begin
      IsCorrect := False;
      Repeat
        Writeln('Введите верхнюю границу суммирования');
        try
          Readln(n);
          if n > 0 then
            IsCorrect := True
          else
              Writeln('Верхняя граница должна быть больше 0')
        except
          Writeln('Верхняя граница суммирования должна быть числом')
        end;
      Until IsCorrect;
      for i := 1 to n do
        if i mod 2 = 1 then
          Output := Output  - 1/i
        else
          Output := Output + 1/i;
      Output := Output/2;
      WriteLn('Сумма равна ',floattostr(Output));
      Readln;
end.