计算5*5矩阵里的鞍点
输入：5*5矩阵
输出：鞍点所在的行，列，以及鞍点的数

program andian;
var
max,min,i,j,k,l:longint;
a,b:array[1..5] of longint;
aa:array[1..5,1..5] of longint;
f:boolean;
begin
f:=false;
for i:=1 to 5 do
for j:=1 to 5 do
begin
read(aa[i,j]);
if (j=5) then readln;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
a[j]:=aa[i,j];
if (a[j]>max) then max:=a[j];
end;
for k:=1 to 5 do
begin
a[k]:=aa[i,k];
if (a[k]=max) then break;
end;
for l:=1 to 5 do
begin
b[l]:=aa[l,k];
if (l=1) then min:=b[l];
if (b[l]<min) then min:=b[l];
end;
if (max=min) then
begin
f:=true;
write(l,' ',k,' ',min);
writeln;
end;
end;
if (f=false) then writeln('not found');
end.