program phuongt; uses crt; var A: array[1..500] of integer; i, n, s: integer; begin clrscr; write('Nhap n = '); readln(n); s:=0; for i:=1 to n do begin write('A[', i, '] = '); readln(A[i]); if A[i] mod 3 = 0 then s:=s+A[i]; end; write('Tong = ', s); readln end.
