Program Sum100;
Var i:integer;S:real;
begin
S:=0;
For i:=1 to 100 do S:=S+(i+1)/(i-1);
writeln(S);
end.
Program Sum100;
Var i:integer;S:real;
begin
S:=0;
For i:=1 to 100 do S:=S+(i+1)/(i-1);
writeln(S);
end.