Const
 N=7;
Var
 A:Array[1..N,1..N] of Integer;
 i,j:Byte;
 Max:Integer;
Begin
 Randomize;
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(40);
     write(A[i,j]:6);
    end;
   Writeln;
  end;
 Writeln;
 Writeln;
 Max:=A[1,1];
 For i:=1 to (N div 2) do
  begin
   for j:=1 to (N div 2)+1-i do
    if A[i,j]>Max then Max:=A[i,j];
   for j:=(N div 2)+1+i to N do
    if A[i,j]>Max then Max:=A[i,j];
  end;
 For i:=(N div 2)+2 to N do
  begin
   for j:=1 to i-(N div 2)-1 do
    if A[i,j]>Max then Max:=A[i,j];
   for j:=N+(N div 2)+2-i to N do
    if A[i,j]>Max then Max:=A[i,j];
  end;
 Writeln('Max = ',Max);
 Readln
End.