var a:array[1..8, 1..8] of integer;
max, i, j:integer;
begin
randomize;
max:=0;
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(200);
for i:=1 to 8 do
for j:=1 to 8 do
if i+j=9 then
begin
if a[i, j]>max then max:=a[i, j];
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i, j]:5);
writeln;
end;
writeln('Максимальный элемент=', max);
end.