uses crt;
var n, i, x: longint;
    a: array[1..1000] of longint;

function qsort(l, r: longint): longint;
var i, j, pivot, tmp: longint;
begin
    i:=l; j:=r;
    pivot:=a[(l + r) div 2];

    while i <= j do 
        begin
            while a[i] < pivot do 
                inc(i);
            while a[j] > pivot do 
                dec(j);
            if i <= j then
                begin
                    tmp:=a[i]; a[i]:=a[j]; a[j]:=tmp;
                    inc(i);
                    dec(j);
                end;
        end;

    if l < j then 
        qsort(l, j);
    if i < r then
        qsort(i, r);
end;

begin
clrscr;
    readln(n);
    for i:=1 to n do 
        read(a[i]);
    readln(x);

    for i:=1 to n do 
        write(a[i], ' ');
    writeln;

    for i:=1 to n do 
        if a[i] = x then
            begin
                writeln(i);
                break;
            end;

    qsort(1, n);
    for i:=n downto 1 do 
        write(a[i], ' ');
readln; readln;
end.

program dayso;

Uses crt;

Var

         n,i,j,tam:integer;

        A:array[1..1000] of integer;

Begin

        clrscr;

         write('N= '); readln(n); write(',gom cac so: ');

         For i:=1 to n do readln(A[i]);

        write('X= '); readln(x);

         write('a, ');

         For i:=1 to n do write(A[i],' ');

         write('b, ');

         for i:=1 to n do if A[i]=x then writeln('Co so ',x,' ơ vi tri thu ',i);

         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;

         writeln('c, Dãy so duoc sap xep theo thu tu giam dan: ');

         For i:=1 to n do write(A[i],' ');

         Readln;

End.

#Ngoc

#Chuc_em_hoc_tot