program kuaisu(input,output);
const n=10;
var
   s:array[1..10] of integer;
   k,l,m:integer;

procedure qsort(lx,rx:integer);
var
   I,j,t:integer;
Begin
   I:lx;j:rx;t:s[I];
   Repeat
      While (s[j]>t) and (j>I) do
         Begin
            k:=k+1;
            j:=j-1
         end;
   if I<j then
begin
   s[I]:=s[j];I:=I+1;l:=l+1;
   while (s[I]<t) and (I<j) do
       begin
          k:=k+1;
          I:=I+1
      End;
   If I<j then
begin
         S[j]:=s[I];j:=j-1;l:=l+1;
      End;
End;
Until I=j;
S[I]:=t;I:=I+1;j:=j-1;l:=l+1;
If lx<j then qsort(lx,j);
If I<rx then qsort(I,rx)
End;{过程qsort结束}