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