Program SortData_;
Uses
   Crt;
Const
    N = 10;
Var
  X:array[1..N] of Word;
  i:Integer;
Procedure SortData;
{‘®авЁа®ўЄ  ¬ ббЁў  Ї® гЎлў ­Ёо}
var
  b,t,j:Integer;
  Temp:Word;
begin
    b:=N;
    While b<>0 do
    begin
         t:=0;
         For j:=1 to b-1 do
             {‡ ¬Ґ­пп §­ Є "<" ­  ">" Їа®Ёб室Ёв б®авЁа®ўЄ  Ї® ў®§а бв ­Ёо}
             If X[j]<X[j+1] then
             begin
                  Temp:=X[j];
                  X[j]:=X[j+1];
                  X[j+1]:=Temp;
                  t:=j;
             end;
         b:=t;
    end;
end;

Begin
    ClrScr;
    Randomize;
    For i:=1 to N do X[i]:=Random(4096);
    SortData;
    For i:=1 to N do WriteLn(X[i]);
End.