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.
