program Hello;
var n,x,d,i:longint;
begin
    readln(n);
    for i:= 1 to n do
        begin
            read(x);
            if x mod 3 = 0 then
                inc(d);
        end;
    writeln('Co ', d, ' so chia het cho 3.');
end.
========================================

program Hello;
var n,j,d,i:longint;
    a: array[1..100000] of longint;
begin
    readln(n);
    for i:= 1 to n do
        read(a[i]);
    for i:= 1 to n do
        for j:= 1 to n do
            if a[i] < a[j] then 
                begin
                    d:=a[i];
                    a[i]:=a[j];
                    a[j]:=d;
                end;
    for i:= 1 to n do
        write(a[i], ' ');
end.
====================================

program Hello;
var n,i:longint;
    ten,lop: array[1..100000] of string;
begin
    readln(n);
    for i:= 1 to n do
        begin
            writeln(i, '. ');
            readln(ten[i]);
            readln(lop[i]);
        end;
    for i:= 1 to n do
        writeln(i, '. Ten  ', ten[i], ' lop ', lop[i]);
end.