Program zad;
uses crt;
var a:array[1..4,1..4] of integer;
const n=4;
var i,j,k,s:integer;
begin
randomize;
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(5);
write(a[i,j]:5); end;
writeln;
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
if ((i-j>=0) and (i+j<=n+1)) or ((i-j<=0) and(j+i>=n+1)) then
if a[i,j]>s then s:=a[i,j];
writeln(' ',s); readln;
end.