program laba2;

{$APPTYPE CONSOLE}

{$R *.res}
uses
  System.SysUtils;
var
   n: Integer;
   E: Double;
   i: Integer;
   Numerator: Double;
   IsCorrect: Boolean;
begin
   E := 0;
   Writeln('Тема: Вычислить сумму');
   repeat
      try
         Writeln('Введите число "n"');
         Read(n);
         IsCorrect := True;
      except
         Writeln('Введённое значение должно быть числом!')
      end;
      if (n < 1) then
         Writeln('Число должно быть положительным!');
   until (IsCorrect and (n > 0));
   for i := 1 to n do
   begin
      if (i mod 2 = 0) then
         Numerator := 1
      else
         Numerator := -1;
      E := E + (Numerator / (2 * i));
   end;
   Writeln('Сумма равна: ', E:6:3);
   Readln;
   Readln;
end.