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

procedure lire;
var i,j:byte;
begin
  assign(input,'royfloyd.in');
  reset(input);
  read(n);
  for i:=1 to n do
    for j:=1 to n do
      read(a[i,j]);
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;
end;

function qq(x,y:integer):integer;
begin
  if x<y then qq:=x else qq:=y;
end;

procedure calc;
var i,j,k:byte;
begin
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
         a[i,j]:=qq(a[i,j],a[i,k]+a[k,j]);
end;

begin
  lire;
  calc;
  ecrire;
end.