Giải gấp hộ mình với Mô tả thuật toán và viết chương trình A=1/1*3+1/2*4+1/3*5+...+1/n(n+2)

Mô tả thuật toán:

B1:Nhập N

B2: i---->0

B3: For k----->1 to n do i------>i+1/k(k+2)

B4: Thông báo Kết quả của i

B5: Kết thúc thuật toán

Chương trình 

Program BTH;
uses Crt;
var n,k:integer;
i:real;
Begin
clrscr;
Write('Nhap so n: ');readln(n);
For k:=1 to n do
i:=i+1/k*(k+2);
Writeln('Tong cua day so tren la: ',i:4:2);
readln;
End.

uses crt;
var i,n:longint;
kq:real;
begin
clrscr;
write('n= '); readln(n);
for i:=1 to n do
kq:=kq + (1/(i*(i+2))) ;
write('Tong la: ',kq:0:4);
readln;
end.