program test;

var r,c,i,j,k:word;

a,f:array[0..501,0..501]of longword;

function max(a,b:longword):longword;begin if a>b then exit(a) else exit(b);end;

function min(a,b:longword):longword;begin if aa then inc(f);

if a>a then inc(f);

if a>a then inc(f);

if a>a then inc(f);

end;

for k:=1 to min(r,c) div 2-1 do

begin

for i:=k to r+1-k do

for j:=k to c+1-k do

begin

if a