Вычислить 1-1/2+1//9999-1/10000 последовательно слева направо вычисляются 1+1/3+/9999 и 1/2+1/4+/10000, затем второе значение вычитается из первого.

Var i: integer;
a, b:real;
begin
  i := 1;
  a := 0;
  while(i<=9999) do begin
    a := a + 1 / i;
    i := i + 2;
  end;
  i := 2;
  b := 0;
  while(i<=10000) do begin
    b := b + 1 / i;
    i := i + 2;
  end;
  writeln(a-b);
end.