program biantaiti;
var a:array[1..200,1..200]of char;
b:array[1..200,1..200]of integer;
n,m,x1,x2,y1,y2,x3,z1,z2:integer;
procedure huatu(i,j:integer);
var k1,k2:integer;
begin
a[i,j]:='+';
a[i,j+4]:='+';
a[i-3,j]:='+';
a[i-3,j+4]:='+';
a[i-2,j+6]:='+';
a[i-5,j+2]:='+';
a[i-5,j+6]:='+';
a[i-4,j+1]:='/';
a[i-4,j+5]:='/';
a[i-1,j+5]:='/';
for k1:=j+3 to j+5 do a[i-5,k1]:='-';
for k1:=j+1 to j+3 do a[i-3,k1]:='-';
for k1:=j+1 to j+3 do a[i,k1]:='-';
for k1:=i-1 downto i-2 do a[k1,j]:='|';
for k1:=i-1 downto i-2 do a[k1,j+4]:='|';
for
