Как расписать пример?

[fs_x]

Безымянный.bmp

Помогите расписать этот пример в ТурбоПаскале!

[JIeIIIa]

sum:=1/x;
t:=1/x;
for i:=1 to N do begin
   t:=(2*i-1)/(2*i+1)*t/sqr(x);
   sum:=sum+t;
end;