const n=10;
var ZZ:array [1..n] of integer;
  a,b,k,i,d,ii:integer;
  
begin
  writeln ('Введите ', n, ' чисел (каждое с новой строки):');
  for i:= 1 to n do
    readln (ZZ[i]);
  k:=0;
  d:=0;
  for i := 1 to n-1 do
  begin  
    for ii := 1 to n-i do
    begin
      a:=ZZ[ii];
      b:=ZZ[ii+1];
      while a<>0 do
      begin
        if a mod 2 = 0 then
          k:=k+1;
        a:=a div 10;
      end;
      while b<>0 do
      begin
        if b mod 2 = 0 then
          d:=d+1;
        b:=b div 10;
      end;
      if k > d then
      begin
        ZZ[ii]:=ZZ[ii]+ZZ[ii+1];
        ZZ[ii+1]:=ZZ[ii]-ZZ[ii+1];
        ZZ[ii]:=ZZ[ii]-ZZ[ii+1];
      end;
      k:=0;
      d:=0;
    end;
  end;
  for i := 1 to n do
    write (ZZ[i]:5);
end.