uses crt;

var a,b,c: array[1..100] of integer;

i,n,m,k,j,t: integer;

begin

assign (input,'mang.inp');  reset(input);

assign (output,'mang.out');   rewrite(output);

readln (n);

m:=0;

k:=0;

for i:=1 to n do read (a[i]);

for i:=1 to n do

if a[i] mod 2=0 then begin m:=m+1; b[m]:=a[i] end

else begin k:=k+1; c[k]:=a[i]; end;

for i:=1 to m-1 do

for j:=i+1 to m do

if b[i]<b[j] then 

begin

t:=b[i];

b[i]:=b[j];

b[j]:=t;

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if c[i]>c[j] then 

begin

t:=c[i];

c[i]:=c[j];

c[j]:=t;

end;

For i:=1 to m do write (b[i]:3);

For i:=1 to k do write (c[i]:3);

close(input);

close(output);

end.

$#Trumtinhoc$

uses crt;

Var A, B : array [1 ..100] of integer;

    i, N, j, d, x : integer;

    f1, f2 : text;

procedure SS;

begin

    for j := N downto i + 1 do 

        for i := i to j - 1 do

            if B[i] > B[i + 1] then 

                begin

                    B[i] := B[i] + B[i + 1] ;

                    B[i + 1] := B[i] - B[i + 1];

                    B[i] := B[i] - B[i + 1] ;

                end;

end;

begin

clrscr;

assign(f1, 'MANG.INP'); reset(f1);

assign(f2, 'MANG.OUT'); rewrite(f2);

readln(f1, N); j := 0; x := N;

for i := 1 to N do read(f1, A[i]);

for i := 1 to N do

    if A[i] mod 2 <> 0 then

        begin

            j := j + 1;

            B[j] := A[i];

        end;

i := 1;  d := j; N := j; SS;  

for i := 1 to x do

    if A[i] mod 2 = 0 then

        begin

            N := N + 1;

            B[N] := A[i];

        end;

i := d + 1; N := x; SS;

for i := 1 to d do write(f2, B[i],' ');

for i := x downto d + 1 do write(f2, B[i],' ');

close(f1); close(f2);

readln

end.