progrgam tong;
uses crt;
var A:array [1..500] of integer;
N,i,T: integer;
Begin
write('Nhap N: '); readln(N);
while N>=150 do
begin
write('Nhap lai N<150: '); readln(N);
end;
for i:=1 to N do
begin
write('A[',i,']='); readln(A[i]);
end;
for i:=1 to N do
if A[i] mod 3=0 then T:=T+A[i];
write('Tong cac so chia het cho 3 = ',T);
readln
End.