const n=4;
var a:array [1..n,1..n] of integer;
var i,j,max,imax,jmax:integer;
begin
for i:=1 to n do
 for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
max:=a[1,1]; imax:=1;jmax:=1;
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]>max then
   begin max:=a[i,j]; imax:=i; jmax:=j; end;
writeln('Max=a[',imax,',',jmax,']=',max);
end.