Nhập vào số nguyên n tính tổng các số là bội của 3

Đây nha bạn

uses crt;

var n,t,i : integer;

BEGIN

clrscr;

 t:=0;

 Write(‘Nhap vao so nguyen n : ‘); readln(n);

 For i:=1 to n do

  if i mod 3=0 then

   t:t+i;

 Writeln(‘Tong cac so la boi cua 3 tu 1 den ‘,n,’ la: ‘,t);

readln;

END.

Còn nếu mk đánh sai trên này thì nhìn vào ảnh này nha, chắc chắn đúng đó .( Nếu sai thì do mk ko hiểu đề )