var n,i:longint;
a:real;
begin
write('n=');readln(n);
a:=0;
for i:=1 to n do
a:=a+1/(i*(i+2));
writeln(' Tong la: ',a);
readln;
end.
B1:Nhập n từ bàn phím;
B2:i:=1;s:=0;
B3:s:=s+1/i(i+2);i:=i+1;
B4:Nếu i<=n thì quay lại b3,ngược lại thông báo kết quả và kết thúc thuật toán.
uses crt;
var i,n:integer;
tong: real;
begin
clrscr; tong:= 0;
write('Nhap N: ');readln(n);
for i:= 1 to n do
tong:= tong + (1 / (i * (i + 2)));
write('A= ',tong:0:2);
readln
end.