{通过样例,WA,不知道错在哪里,请指教}
type arr=array[1..10000] of longint;
var
procedure swap(var a,b:longint);
var t:longint;
begin
end;
procedure qsort(l,r:longint;var a,b:arr);
var
begin
end;
begin
end.