var a,b:array[0..10000007] of longint; i,n,j:longint; begin readln(n); for i := 1 to n do read(a[i]); for i := 1 to n do begin if a[i] mod 2 = 0 then begin inc(j); b[j] := a[i]; end; end; writeln('Co'); for i := 1 to j do write(b[i],#32); readln; readln; end.
