记录编号	21769	评测结果	AAAAAAAAAA
题目名称	499.牛宫	最终得分	100
用户昵称	王者自由	是否通过	通过
代码语言	Pascal	运行时间	2.086 s
提交时间	2010-11-15 13:08:31	内存使用	0.42 MiB

program long;
var n,m,i,j,k,p,w:longint;
  S,B:array[0..200]of int64;
  A:array[0..200,0..200]of int64;
  x:int64;
function calc(i,j,x,y:longint):int64;
begin
  exit(a[x,y]-a[x,j-1]-a[i-1,y]+a[i-1,j-1]);
end;
begin
  assign(input,'long.in'); reset(input);
  assign(output,'long.out'); rewrite(output);
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do
    begin
      read(x);
      A[i,j]:=A[i-1,j]+A[i,j-1]-A[i-1,j-1]+x;
    end;
  for i:=1 to m do
    for j:=i to m do
    begin
      for k:=1 to n do S[k]:=calc(1,i,k,j);
      for k:=1 to n do
        if S[k]>S[k-1] then
        begin
          b[k]:=k;
          for p:=0 to b[k-1] do
            if S[p]<S[k] then
            begin
              b[k]:=p;
              if (k-p)*(j-i+1)>w then w:=(k-p)*(j-i+1);
              break;
            end;
        end else
        begin
          b[k]:=k;
          for p:=b[k-1] to k-1 do
          if S[p]<S[k] then
          begin
            b[k]:=p;
            if (k-p)*(j-i+1)>w then w:=(k-p)*(j-i+1);
            break;
          end;
        end;
    end;
  writeln(w);
  close(input); close(output);
end.