Program cel;
Type matrice=array[1..500,1..500] of longint;
var f,g:text;
    a:matrice;
    n,i,j,k,ii,jj:integer;
    m,p,max:longint;
Begin
Assign(f,'plantatie.in');Reset(f);
Assign(g,'plantatie.out');Rewrite(g);
Readln(f,n,m);
For i:=1 to n do
 Begin
  For j:=1 to n do Read(f,a[i,j]);
  Readln(f);
 end;
For p:=1 to m do
 Begin
  Readln(f,i,j,k);
  max:=-1;
  For ii:=i to i+k-1 do
   For jj:=j to j+k-1 do
    If max<a[ii,jj] then max:=a[ii,jj];
   Writeln(g,max);
  end;
Close(f);
Close(g);
end.