Quy luật: từ số 2 cộng lên từng số thì mỗi số cách nhau 3 đơn vị.
Chương trình (có nhập giới hạn):
uses crt;
var n,i,s:longint;
begin
clrscr;
readln(n);
i:=2;
while i<=n do
begin
inc(s,i);
inc(i,3);
end;
writeln(s);
readln
end.
*Lưu ý: Theo đề không nhập giới hạn mà cứ cộng dần lên, mà số nguyên thì không có số lớn nhất nên tổng không thể tính được.