Для заданного числа n составьте программу вычисления суммы s=1/2-1/3+1/4-1/5+..+1/n, где n натуральное число.

///PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n: integer;
    s:real;
begin
  readln(n);
  s:=0;
  for i:=2 to n do  begin
  if i mod 2=0 then s:=s+1/i
     else s:=s-1/i ;
  end;
  writeln(s);
end.