program ex1;
const n=10;
var s:array[1..n]of integer;
k,l,m:integer;f,g:text;
procedure qsort(lx,rx:integer);
var i,j,t:integer;
begin
i:=lx;j:=rx;t:=s[i];
repeat
while(s[i]>t)and(j>i) do
begin
inc(k);j:=j-1;
end;
if i<j then begin
s[i]:=s[j];inc(i);inc(l);
while (s[i]<t)and(i<j)do
begin
k:=k+1;i:=i+1;
end;
if i<j then begin
s[i]:=s[j];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 j<rx then qsort(i,rx);
end;
begin
assign(f,'kuaipai.in');
assign(g,'kuaipai.out');
reset(f);rewrite(g);
for m:=1 to n do read(f,s[m]);
k:=0;l:=0;
qsort(1,n);
for m:=1 to n do write(g,s[m],' ');
close(f);close(g);
end.

你这是要干嘛呢。。

什么题目啊