Program so_le;
Uses crt;
Var n,i,d;integer;
A:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n:');
Readln(n);
For i:=1 to n do
Begin
Write('Nhap pt thu a[',i,']');
Readln(a[i]);
End;
For i:=1 to n do
If a[i] mod 3=0 then d:=d+1;
Writeln('So cac so le la:',d);
Readln;
End.