procedure f(p,q:longint);

var

i,j,k,r:longint;

begin

i:=p;

j:=q;

r:=a[(p+q)div 2];

repeat

while a[i]r do dec(j);

if ij;

if j>p then f(p,j);

if i