Description
国际象棋是世界上最古老的博弈游戏之一，和中国的围棋、象棋以及日本的将棋同享盛名。据说国际象棋起源于易经的思想，棋盘是一个8*8大小的黑白相间的方阵，对应八八六十四卦，黑白对应阴阳。而我们的主人公小Q，正是国际象棋的*爱好者。作为一个顶尖高手，他已不满足于普通的棋盘与规则，于是他跟他的好朋友小W决定将棋盘扩大以适应他们的新规则。小Q找到了一张由N*M个正方形的格子组成的矩形纸片，每个格子被涂有黑白两种颜色之一。小Q想在这种纸中裁减一部分作为新棋盘，当然，他希望这个棋盘尽可能的大。不过小Q还没有决定是找一个正方形的棋盘还是一个矩形的棋盘（当然，不管哪种，棋盘必须都黑白相间，即相邻的格子不同色），所以他希望可以找到最大的正方形棋盘面积和最大的矩形棋盘面积，从而决定哪个更好一些。于是小Q找到了即将参加全国信息学竞赛的你，你能帮助他么？
Input
第一行包含两个整数N和M，分别表示矩形纸片的长和宽。接下来的N行包含一个N * M的01矩阵，表示这张矩形纸片的颜色（0表示白色，1表示黑色）。
Output
包含两行，每行包含一个整数。第一行为可以找到的最大正方形棋盘的面积，第二行为可以找到的最大矩形棋盘的面积（注意正方形和矩形是可以相交或者包含的）。
Sample Input
3 3
1 0 1
0 1 0
1 0 0
Sample Output
4
6
HINT
对于20%的数据，N, M ≤ 80 对于40%的数据，N, M ≤ 400 对于100%的数据，N, M ≤ 2000
唉，又搞错了，把m打成了n，0ms就WA了（第一个数据就错了）
话说以前做过一道差不多的题，叫做玉嶦宫
然后就直接用了它的模型
const
maxn=;
var
n,m,ans1,ans2:longint;
a,s:array[..maxn,..maxn]of longint; function max(x,y:longint):longint;
begin
if x>y then exit(x);
exit(y);
end; function min(x,y:longint):longint;
begin
if x<y then exit(x);
exit(y);
end; procedure init;
var
i,j:longint;
begin
read(n,m);
for i:= to n do
for j:= to m do
read(a[i,j]);
for i:= to m do
s[,i]:=;
for i:= to n do
for j:= to m do
if a[i,j]<>a[i-,j] then s[i,j]:=s[i-,j]+
else s[i,j]:=;
end; var
w,h:array[..maxn]of longint;
tot:longint; procedure insert(x:longint);
var
k:longint;
begin
k:=;
while (tot>)and(h[tot]>=x) do
begin
inc(k,w[tot]);
ans1:=max(ans1,sqr(min(h[tot],k)));
ans2:=max(ans2,h[tot]*k);
dec(tot);
end;
inc(tot);
h[tot]:=x;
w[tot]:=k+;
end; procedure work;
var
i,j:longint;
begin
for i:= to n do
begin
tot:=;
for j:= to m do
if (tot=)or(a[i,j]<>a[i,j-]) then insert(s[i,j])
else
begin
insert();
tot:=;
insert(s[i,j]);
end;
insert();
end;
writeln(ans1);
writeln(ans2);
end; begin
init;
work;
end.