var a: array[1..250] of integer;

      i, n ,d: byte;

begin

     Write('n = '); readln(n);

     D:=0;

     For i:=1 to n do

         Begin

             Write('a[', i, '] = '); readln(a[i]);

             If a[i] mod 3=0 then d:=d+1;

         End;

     Write('co ', d, ' so chia het cho 3');

     Readln

End.