; len=; var x,y,z,n,m,tot,lx,i:longint; sum:..maxn] of longint; rt:..maxn] of longint; time,l,r:..maxn*len] of longint; ch:char; procedure insert(x:longint);inline; var p,i:longint; begin rt[lx]:=tot+; p:=rt[lx-]; do begin inc(tot); l[tot]:=l[p]; r[t…