program candy bzoj1062; ; maxm=; maxn=; var n,len,m,i,p,t,l,r,c,d,q:longint; s:..,..maxn,..maxm] of longint; x,y:..maxc] of longint; procedure add(p,x,y,v:longint); var i:longint; begin inc(x); inc(y); while x<maxn do begin i:=y; while i<maxm do beg…