下列程序用来求sum=1+1/1*2+1/2*3+...+1/a(n+1),
直到累加到第30项为止,
试选择正确一项填入空格处______。

program sum(output);
var   s,a:real;
n:integer;
begin
  s:=1.0;n:=0
  repeat
  (          n:=n+1        );
  a:=1/(     (n*(n+1))      );
  s:s+a
until n=29;
wrileln('n=',n:2;s=',s:6:3)
end.
      程序运行结果：