+sai chỗ for:=1 mà bạn ghi for i:-1
+thiếu câu lệnh in tổng ra màn hình
tham khảo:
program oken;
uses crt;
var i,n:longint;
tong: real;
begin
clrscr;
writeln('nhap gioi han cua tong: '); readln(n);
for i:=1 to n do
tong:=tong+(i/(i+(i+1)));
writeln('tong: ',tong:0:3);
readln;
end.