uses crt;
var i,n,k,m:longint; a:array[0..1000000]of longint;
Procedure kt;
var i,ktt:longint;
   begin
       ktt:=0;
       for i:=1 to n do if(a[i]<>-5)and(a[i] mod 2=m)
       and(((ktt=0)and(a[i]>=a[k]))or((ktt=1)and(a[i]<=a[k]))) then
       begin k:=i; ktt:=1; end;
   end;
begin
clrscr;
   write('N=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   m:=0; k:=0;
   for i:=1 to n do
      begin
        kt;
        if (a[k]<>-5)and(k<>0) then begin write(a[k],' '); a[k]:=-5; end;
      end; writeln;
   m:=1; k:=0; a[k]:=0;
   for i:=1 to n do
      begin
        kt;
        if (a[k]<>-5)and(k<>0) then begin write(a[k],' '); a[k]:=-5; end;
      end;
readln
end.

uses crt;
var a:array[1..10000000] of longint;
    n,i,j,t:longint;
begin
clrscr;
write('Nhap do dai cua mang: ');readln(n);
for i:=1 to n do
  begin
  write('a[',i,']=');readln(a[i]);
  end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
  begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
  end;
write('Cac so chan theo thu tu tang dan: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i],'  ');
writeln;
write('Cac so le theo thu tu tang dan: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i],'  ');
readln;
end.