uses crt;
type vec=array[1..9]of integer;
var t:array[1..20,1..20]of integer;v:vec;s:vec;
c1,c2,l1,l2,n,k,i,j,a,b,c,d:integer;bo:boolean;f:text;
procedure vector(var x:vec; y:integer);
var t,u,z:integer;
begin
For t:=1 to y-1 do begin
For u:=t+1 to y do begin
If x[t]<x[u] then begin
z:=x[u];
x[u]:=x[t];
x[t]:=z;
end;
end;
end;
end;
begin
clrscr;
assign(f,'zone.out');
rewrite(f);
read(n);
For i:=1 to 9 do readln(v[i]);
For i:=1 to n do begin
For j:=1 to n do read(t[i,j]);
end;
For l1:=2 to n-2 do begin
For l2:=l1+1 to n-1 do begin
For c1:=2 to n-2 do begin
For c2:=c1+1 to n-1 do begin
For i:=1 to 9 do s[i]:=0;
For i:=1 to l1-1 do begin
For j:=1 to c1-1 do begin
s[1]:=s[1]+t[i,j];
end;
end;
For i:=l1 to l2-1 do begin
For j:=1 to c1-1 do begin
s[9]:=s[9]+t[i,j];
end;
end;
For i:=l2 to n do begin
For j:=1 to c1-1 do begin
s[2]:=s[2]+t[i,j];
end;
end;
For i:=1 to l1-1 do begin
For j:=c1 to c2-1 do begin
s[3]:=s[3]+t[i,j];
end;
end;
For i:=l1 to l2-1 do begin
For j:=c1 to c2-1 do begin
s[4]:=s[4]+t[i,j];
end;
end;
For i:=l2 to n do begin
For j:=c1 to c2-1 do begin
s[5]:=s[5]+t[i,j];
end;
end;
For i:=1 to l1-1 do begin
For j:=c2 to n do begin
s[6]:=s[6]+t[i,j];
end;
end;
For i:=l1 to l2-1 do begin
For j:=c2 to n do begin
s[7]:=s[7]+t[i,j];
end;
end;
For i:=l2 to n do begin
For j:=c2 to n do begin
s[8]:=s[8]+t[i,j];
end;
end;
vector(s,9);
vector(v,9);
bo:=false;
For i:=1 to 9 do begin
If v[i]<>s[i]then bo:=true;
end;
If bo=false then write(f,l1,' ',l2,' ',c1,' ',c2);
end;
end;
end;
end;
close(f);
readln;
end.