Kristina_for

{a)      Дано натуральное число n. Получить f0 f1...fn,где
        1       1            1
 fi = —---- + —---- +...+ —------
      i^2+1   i^2+2       i^2+i+1}

var
    i,n:integer;f,s:real;
begin
    write('Vvedi granicu: ');
    readln(n);
    f:=0;
    for i:=0 to n do
    begin
        s:=1/((i*i)+i+1);
        f:=f+s;
        write('f(':5,i,')=',f:8:6,'; ');
    end;
    readln;
End.