program p1051;

var

pic:array[-1..150,-1..150] of char;

i,j,k,l,r,s:integer;

procedure paint(y,x:integer);

var

xx,yy:array[1..12] of integer;

ii:integer;

begin

yy[1]:=-2;xx[1]:=0;

yy[2]:=-1;xx[2]:=-1;

yy[3]:=-1;xx[3]:=0;

yy[4]:=-1;xx[4]:=1;

yy[5]:=0;xx[5]:=-2;

yy[6]:=0;xx[6]:=-1;

yy[7]:=0;xx[7]:=1;

yy[8]:=0;xx[8]:=2;

yy[9]:=1;xx[9]:=-1;

yy[10]:=1;xx[10]:=0;

yy[11]:=1;xx[11]:=1;

yy[12]:=2;xx[12]:=0;

pic[y,x]:='-';

for ii:=1 to 12 do

begin

if ((pic[y+yy[ii],x+xx[ii]]='#') and ((y+yy[ii])>0) and ((x+xx[ii])>0)

and ((y+yy[ii])