Question

Какой результат будет после выполнения следующей программы?
var  s,d : real;
i : integer;
begin
s:=0
for i:=1 to 49 do
begin
d:=i*(i+1);
s:=s+1/d;
end;
writeln('S=',s);
end.

A)S=0,02      B)S=0,98     C)S=0,0002       D)S=1
Помогите очень срочно!!!!!!!!