Viết chương trình Tính tổng S= 1/ 1.3 + 1/2.4 + 1/3.5+… + 1/n(n+2) Các mod giúp e

Program Hotboy ;

Uses crt;

Var i,n:integer;

S:real;

Begin

Clrscr;

S:=0;

Write(‘nhap n’);

Readln(n);

For i:=1 to n do

S:=S+1/i(i+2);

Write(‘tong can tim la’,S:1:3);

Readln

End.