CONST
 N=10;
VAR
 A:Array[1..N] of Byte;
 x,i,j,num,d:Byte;
BEGIN
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=Random(100);
   write(A[i]:4);
  end;
 writeln;
 write('x= ');
 readln(x);
 num:=0;
 for i:=1 to N do
  if A[i]=x then num:=i;
 If num=0 then writeln('The sequence does not contain ',x)
 else
 begin
  for i:=1 to num do
   for j:=1 to num-i do
    if A[j]<A[j+1] then
     begin
      d:=A[j];
      A[j]:=A[j+1];
      A[j+1]:=d;
     end;
  for i:=1 to num do write(A[i]:4);
 end;
 readln
END.