Вычислить 1-1/2+1/3...1/9999-1/10000 последовательно слева направо вычисляются 1+1/3+...1/9999 и 1/2+1/4+...1/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.