Help me Viết chương trình tính tổng T= $\frac{1}{1+2}$ +$\frac{2}{2+3}$ +$\frac{3}{3+4}$ +...

var
        n,i: integer;
        kq: real;
        begin
                readln (n);
                for i:= 1 to n do kq:= kq + i/(i+i+1);
                writeln (kq);
                readln;
        end.

Trong đó n là phần tử nhập từ bàn phím 

Code tính tổng1/(1+2) + 2/(2+3) + 3/(3+4) + .... + n/(n+n+1)

uses crt;

var i, n : integer; T : real;

begin

clrscr;

write('Nhap so n = '); readln(n);

T := 0; for i := 1 to n do

T := T + i / (i + i + 1);

write('T = ', T : 2 : 2);

readln

end.