program h;
const n=4;
var i,j,k,s,max:integer; a:array[1..4,1..4] of integer;
Begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
a[i,j]:=random(10);
write(a[i,j]:7);
end;
writeln;
end;
for i:=1 to n do begin for j:=1 to n do begin
write(a[i,j]:5); end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do begin
if((i-j>=0) and(i+j<=n+1)) then
begin
if a[i,j]>max then
max:=a[i,j];
end;
end;
writeln('max=',max); readln;
end.