type matrix=array[1..500,1..500] of 0..1000000000;
var
 be,ki:text;
 a:matrix;
 z,x:word;
 i,j:0..500;
 n:0..500;
 m,y:0..75000;
 i1,j1,k1:word;
 max:0..1000000000;
begin
assign(be,'plantatie.in');
reset(be);
readln(be,n,m);

for i:=1 to n do
 for j:=1 to n do
 read(be,a[i,j]);

assign(ki,'plantatie.out');
rewrite(ki);
for y:=1 to m do begin
  max:=0;
  readln(be,i1,j1,k1);
  for z:=i1 to i1+k1-1 do
   for x:=j1 to j1+k1-1 do
    if a[z,x]>max then max:=a[z,x];
  writeln(ki,max);
end;
close(be);
close(ki);

end.