var n,i,j,k:byte;
a:array [1..100,1..100] of integer;

procedure lire;
var i,j:byte;
begin
  assign(input,'royfloyd.in');
  reset(input);
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      read(a[i,j]);
  close(input);
end;

procedure ecrire;
var i,j:byte;
begin
  assign(output,'royfloyd.out');
  rewrite(output);
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln;
  end;
  close(output);
end;

begin
  lire;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if ((a[i,k]<>0) and (a[k,j]<>0) and ((a[i,j] > (a[i,k] + a[k,j])) or (a[i,j]=0)) and (i <> j)) then a[i,j] := a[i,k] + a[k,j];
  ecrire;
end.