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