NZTABLE PASCAL

const MAXN=55;
      finp='NZTABLE.INP';
      fout='NZTABLE.OUT';

var  n, kc, p: longint;
    a,b: array[1..MAXN, 1..MAXN] of longint;
procedure nhap;
var i,j:longint;
begin
    readln(n);
    for i:=1 to n do
        for j:=1 to n do read(a[i,j]);
end;

procedure tinh(i,j:longint);
begin
     if (a[i,j]>0) then b[i,j]:=a[i,j]
     else
     begin
        b[i,j]:=-maxlongint;
        kc:=maxlongint;
        for p:=1 to n do
            if (a[p,j]<>0) then
                if ((abs(i-p)<kc) or ((abs(i-p)=kc) and (a[p,j]>b[i,j]))) then
                begin
                    kc:=abs(i-p);
                    b[i,j]:=a[p,j];
                end;
        for p:=1 to n do
            if (a[i,p]<>0) then
                if ((abs(j-p)<kc) or ((abs(j-p)=kc) and (a[i,p]>b[i,j]))) then
                begin
                    kc:=abs(j-p);
                    b[i,j]:=a[i,p];
                end;
        if (kc=maxlongint) then b[i,j]:=0;
     end;
end;

procedure giai;
var i,j:longint;
begin
    for i:=1 to n do
        for j:=1 to n do tinh(i,j);
     for i:=1 to n do
     begin
        for j:=1 to n do write(b[i,j],' ');
        writeln;
     end;
end;

begin
     assign(input, finp);reset(input);
     assign(output, fout);rewrite(output);
     nhap;
     giai;



     close(input);
     close(output);
end.