uses crt;
var f:text; i,n:longint; a:array[1..10000000]of longint;
begin
clrscr;
assign(f,baitap.inp');reset(f);
while not(eof(f)) do
begin inc(n); readln(f,a[n]); end;
close(f);
assign(f,'baitap.out');rewrite(f);
write(f,'Cac so chan: ');
for i:=1 to n do
if a[i] mod 2=0 then write(f,a[i],' '); writeln(f);
write(f,'Cac so le: ');
for i:=1 to n do
if a[i] mod 2=1 then write(f,a[i],' ');
close(f);
end.