type mas=array[1..10000000] of integer; var n,a,b,c:integer; m:mas; l,i:integer; procedure sort(l,r:integer); var j,t,k,K1,K2,x:integer; begin if lx then begin t:=m[k]; m[k]:=m[r-k2]; m[r-k2]:=t; k2:=k2+1; end else begin if m[k]