uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s+1/(i+(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
Program HOC24;
var t: real;
i,n: integer;
begin
write('Nhap n='); readln(n);
t:=1;
for i:=1 to n do
t:=s+1/(i*(i+2));
write('Tong cua day so la : ',t);
readln
end.