Viết chương trình tính tổng sau S=2+5+8+... Giải giúp em lập trình này ạ

uses crt;
var i,n,s:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      if (i+1) mod 3=0 then inc(s,i);
   writeln('S= ',s);
readln
end.

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.