uses crt;
var a : array[1 .. 200] of integer;
i, n, s, d : integer;
begin
clrscr;
write('Nhap so phan tu : '); readln(n);
s := 0; d := 0;
write('Nhap ', n ,' so nguyen : ');
for i := 1 to n do begin read(a[i]);
if a[i] mod 3 = 0 then begin
d := d + 1; s := s + a[i]; end; end;
writeln('Co ', d ,' phan tu chia het cho 3');
writeln('Tong : ', s);
readln
end.