srzontmp Var n,k: integer;
    s: real;
begin
  s:=0; n:=0;
  repeat
    inc(n);
    k:=n*n;
    s:=s+k/(k+2);
  until s>9;
  writeln('n = ',n,'   s =',s:5:2);
end.

n = 11   s = 9.45