再次请求编一道Pascal程序题，谢谢了！

var s:real; i:integer;
begin
for i:=1 to 100 do s:=s+1/i;
writeln(s:0:2);
end.

像他这样一次问完不就好了......
http://zhidao.baidu.com/question/105006490.html

var sum,a,b,d:real;
c:integer;
begin
sum:=0;
a:=1;b:=1;
for c:=1 to 100 do
begin
sum:=sum+a/b;
d:=b;
b:=a+b;
a:=d;
end;
writeln(sum);
end.