uses crt;
const
n = 4;
var
a: array [1 .. n, 1 .. n] of integer;
i, j, max, imax: integer;
begin
clrscr;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(10) - 5;
write(a[i, j]:4);
end;
writeln;
end;
writeln;
max := 0;
for i := 1 to n do
begin
for j := 1 to n do
if i = j then
if a[i, j] > max then
begin
max := a[i, j];
imax := i
end;
end;
for i := 1 to n do
write(a[imax, i]:4);
end.