记录编号	33660	评测结果	A
题目名称	儿童节快乐	最终得分	100
用户昵称	echo	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2011-11-11 16:37:31	内存使用	0.54 MiB

program happya;
var
  n,m,i,j,ans:longint;
  cha:char;
  candy:array[1..100000] of longint;
procedure add;
var
  a,b,c:longint;
  begin
    readln(a,b,c);
    for i:=a to b do
      candy[i]:=candy[i]+c;
  end;
procedure put;
var
  a,b,p,max:longint;
  begin
    max:=-1;
    readln(a,b);
    for i:=a to b do
      if candy[i]>max then
        begin
          max:=candy[i];
          p:=i;
        end;
    writeln(max);
    candy[p]:=0;
  end;
begin
  assign(input,'happya.in');
  assign(output,'happya.out');
  reset(input);
  rewrite(output);
  readln(n,m);
  for j:=1 to m do
    begin
      read(cha);
      if cha='I' then add
                 else put;
    end;
  close(input);
  close(output);
end.