VAR
 A:Array[1..4,1..5] of Integer;
 i, j, Imin, Imax, Jmin, Jmax, Min, Max:Integer;
BEGIN
 Min:=32000;
 Max:=-32000;
 For i:=1 to 4 do
  For j:=1 to 5 do
  begin
   Write('A[',i,',',j,']= ');
   ReadLn(A[i,j]);
   If A[i,j]<Min then
    begin
     Imin:=i;
     Jmin:=j;
     Min:=A[i,j];
    end;
   If A[i,j]>Max then
    begin
     Imax:=i;
     Jmax:=j;
     Max:=A[i,j];
    end;
  end;
 WriteLn;
 WriteLn('Min = A[',Imin,',',Jmin,'] = ',A[Imin,Jmin]);
 WriteLn('Max = A[',Imax,',',Jmax,'] = ',A[Imax,Jmax]);
 ReadLn
END.