Const Fi='SUM.INP';
      Fo='SUM.OUT';
Var f,g: text;
    A: array[1..100000] of longint;
    n,i,d: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Readln(f,n);
        d:=0;
        For i:=1 to n do
        Begin
                Read(f,A[i]);
                If A[i] mod 3 = 0 then inc(d);
        End;

        Writeln(g,n);
        For i:=1 to n do Write(g,A[i],' ');
        Writeln(g);
        Write(g,d);
        Close(f);
        Close(g);
End.

#include <iostream>
#include <fstream>
using namespace std;
int main()
{
    ifstream inp("SUM.INP");
    ofstream out("SUM.OUT");
    int n,ch3==0;
    inp>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        inp>>arr[i];
        out<<arr[i]<<" ";
        if(arr[i]%3==0){
            ch3++;
        }
    }
    out<<ch3;
    out.close();
    inp.close();
    //samon247
    return 0;
}