uses crt;
var n,i,count,cnt:Longint;
    a:array[1..1000] of Longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            if(a[i] mod 2 = 0) then inc(count) else inc(cnt);
        end;
    write('Cac so chan: ');
    for i:=1 to n do 
        if(a[i] mod 2 = 0) then write(a[i],' ');
    writeln;
    write('Cac so le: ');
    for i:=1 to n do 
        if(a[i] mod 2 = 1) then write(a[i],' ');
    writeln;
    writeln('So so chan: ',count);
    writeln('So so le: ',cnt);
readln; readln;
end.

var a,b,d:array[0..10000007] of longint;
    i,n,c,l: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(c);
             b[c] := a[i];
        end
      else
        begin
             inc(l);
             d[l] := a[i];
        end;
 end;
for i := 1 to c do
writeln('So chan ',b[i]);
for i := 1 to l do
writeln('So le ',d[i]);
writeln('So cac so chan ',c);
writeln('So cac so le ',l);
readln; readln;
end.