program 8_46b;
uses crt;
const a:array[1..4,1..4] of integer=((1,11,4,7),(5,9,2,10),(7,6,4,2),
(3,1,4,5));
var i,j,s,n:integer;
begin
clrscr;
writeln('dan massiv:');
n:=4;
for i:=1 to n do
   begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
s:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if ((i-j=0) and (i-j=<0))
then if a[i,j]>s then s:=a[i,j];
writeln('otvet',s);
end.