uses crt;
var a:array[1..1000] of longint;
i,j,n:word;k,tam:longint;
kt1,kt2:boolean;
begin
    clrscr;
    write('n= ');readln(n);
    for i:=1 to n do read(a[i]);readln;
    write('k= ');readln(k);
    kt1:=false;kt2:=false;
    for i:=2 to n do
       begin
           if a[i]>=a[i-1] then kt1:=true
             else
                begin
                    kt1:=false;
                    break;
                end;
       end;
    if kt1=true then writeln('day da duoc sap xep tang dan')
     else
       begin
           for i:=2 to n do
              begin
                  if a[i]<=a[i-1] then kt2:=true
                    else
                       begin
                           kt2:=false;
                           break;
                       end;
              end;
       end;
    if kt2=true then writeln('day da duoc sap xep giam dan');
    if kt1=true then
       begin
           i:=1;
           while k>a[i] do inc(i);
           for j:=n+1 downto i+1 do a[j]:=a[j-1];
           a[i]:=k;
           writeln('day sau khi duoc chen them n la');
           for i:=1 to n+1 do write(a[i],' ');
       end
    else if kt2=true then
       begin
           i:=1;
           while k<a[i] do inc(i);
           for j:=n+1 downto i+1 do a[j]:=a[j-1];
           a[i]:=k;
           writeln('day sau khi duoc chen them n la');
           for i:=1 to n+1 do write(a[i],' ');
       end
    else begin
        for i:=1 to n-1 do
           for j:=i+1 to n do
              if a[i]>a[j] then
                 begin
                     tam:=a[i];
                     a[i]:=a[j];
                     a[j]:=tam;
                 end
    end;
readln;
end.

var

begin

read(n);

for i:=1 to n do

     read(a[i]);

for i:=1 to