{
   Programa para o calculo da serie:
   x = 1 - 1/2 + 1/3 - 1/4 + ... + 1/99 - 1/100
}
program serie;
var
   x : real;
   i : integer;
begin
   x := 0;
   i := 1;
   while i <= 100 do
   begin
      if i mod 2 = 1 then
	 x := x + 1/i
      else
	 x := x - 1/i;
      i := i + 1;
   end;
   writeln('x = ', x:2:3);
end.