program t2;

var a:array[-2..22,-2..22] of 0..1;

i,j,m,n,x,y,t:integer;

procedure d(x:integer;y:integer);

begin

if a[x,y]1 then inc(t);

if x