线段树pascal代码

const
maxn=500010;
type
rec=record
l,r:longint;
ans:int64;
end;
var
c:array[0..500010] of longint;
tree:array[0..maxn*4] of rec;<