var
n,i,j,max,min: integer;
f1, f2: boolean;
mas: array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
read(mas[i,j]);
readln;
end;
max:=mas[1,1];
min:=mas[n,n];
for i:=2 to n do
if (mas[i,i] > max) then max:=mas[i,i];
for i:=1 to n do
if (mas[i,n-i+1] < min) then min:=mas[i,n-i+1];
writeln('Вывод');
for i:=1 to n do
for j:=1 to n do
begin
if (mas[i,j]> max) then f1:=true else f1:=false;
if (mas[i,j] < min) then f2:=true else f2:=false;
end;
if (f1) then
writeln('Полученый максимум по главной диагонали не является максимальным в матрице')
else writeln('Полученый максимум по главной диагонали является максимальным в матрице');
if (f2) then
writeln('Полученый минимум по побочной диагонали не является минимальным в матрице')
else writeln('Полученый минимум по побочной диагонали является минимальным в матрице');
end.