uses crt;
var n,i,j,t,k:longint;
a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
 readln(a[i]);
readln(k);
a[n+1]:=k;
n:=n+1;
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;
for i:=1 to n do
 if a[i]<>k then write(a[i],' ');
writeln;
for i:=1 to n do
 write(a[i],' ');
readln
end.

uses crt;
var n,k,i,j:longint;
A:array[1..10000]of longint;
procedure Nhap;
begin
          writeln('Nhap vao so N: ');read(n);
             for i:=1 to n do
             begin
               writeln('Mhap phan tu thu A[',i,']: ');
                   read(A[i]);
             end;
end;
procedure Xuly;
var tam:longint;
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;
        write('Day so sau khi da sap xep giam dan la: ');
               for i:=1 to n do
                    write(A[i],' ');
               writeln;
                 writeln('Nhap vao so k: '); read(k);
                        A[n+1]:=k;
                   for i:=1 to (n-1)+1 do
            for j:=i+1 to n+1 do
                  if A[i]<A[j] then
                    begin
                       tam:=A[i];
                       A[i]:=A[j];
                       A[j]:=tam;
                  end;
                   write('Day so them k sap xep giam dan la: ');
                     for i:=1 to n+1 do
                       write(A[i],' ');
                       readln;
end;
begin
clrscr;
Nhap;
Xuly;
readln;
end.



 Nhìn hơi rối bạn không hiểu gì cứ hỏi mình nhé