回帖：program luyi;
var
a,b:array[1..40000] of longint;
n,i,j,a1,a2,a3,b1,b2,b3,s,q,w:longint;
procedure qsort(l,r:longint);
var
l1,r1,m,x:longint;
begin
if l