Program p1298;

Var

a,b,c,d:array[0..1001]of Longint;

e:array[1..4]of Longint;

i,j,k,l,m,n,f,x,y,z:Longint;

Function min(a,b:Longint):Longint;

Begin

If a>b then min:=b else min:=a;

End;{min}

Procedure quicksort1(t,s:Longint);

Var

i,j,p,mid:Longint;

Begin

i:=t;j:=s;mid:=c[(i+j)shr 1];

Repeat

While c[i]mid do dec(j);

If ij;

If t