{
   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;
   for i := 1 to 100 do      
      x := x + 1/i;
   writeln('x = ', x:2:3);
end.