program zada4a9;
var i, j, N, max, min : integer;
     H : array[1..100, 1..100] of integer;
begin
   write('Enter N: ');
   readln(N);
   for i := 1 to N do
     for j := 1 to N do
       begin
         write('H(', i,', ', j, ') = ');
         readln(H[i, j]);
       end;
   max := H[1, 1];  
   min := H[1, N];
   for i := 1 to N do
     begin
       if H[i, i] > max then max := H[i, i];
       if H[i, N - i + 1] < min then min := H[i, N - i + 1];
     end;
   write('Maximum - ', max, ', minimum - ', min);
   readln;
end.