Đâ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 đề )