Построить программу суммы первых n членов последовательности (k=1,2,...,n) в паскале

(k+2)/(k^2+4)

Программа+блок схема

1 2 3 4 5 6 7 8 9 10 11 12 13 var n, i: integer; sum: real;   begin   writeln('Сколько членов последовательности сложить? ');   read(n);   i:= 1; sum:= 0;   while (i <= n) do   begin     sum:= sum + (i + 0.5) / (3 * i * i + 2);     i:= i + 1;   end;   writeln('Ответ: ', sum); end.