Program Kofe; uses crt;
Var fol: array [1..13,1..13] of integer;
    maxf: integer;
    pm: array [1..13] of integer;
    a: array [1..13,1..13] of integer;
    k: integer;
    i,j: integer;
    f: text;
    sp: array [1..13] of integer;
    v,w:integer;
    otec: array [1..13] of integer;

Procedure PMCH;
Var och: array [1..100] of integer; t,t1: integer;

begin
   for i:=1 to k do
     pm[i]:=32000;
   t:=1; t1:=1;
   och[t]:=1;
   otec[1]:=32000;
   while (pm[k]=32000) and (t-t1>=0) do
   begin
     w:=och[t1]; t1:=t1+1;
     for v:=1 to k do
       if (pm[v]=32000) and (a[w][v]-fol[w][v]>0) then
       begin
         if pm[w]<a[w,v]-fol[w,v] then pm[v]:=pm[w]
                                  else pm[v]:=a[w,v]-fol[w,v];
         otec[v]:=w;
         t:=t+1; och[t]:=v;
         sp[v]:=1;
       end;
     for v:=2 to k do
       if (pm[v]=32000) and (fol[v,w]>0) then
       begin
         if pm[w]<fol[v,w] then pm[v]:=pm[w]
                           else pm[v]:=fol[v,w];
         otec[v]:=w;
         t:=t+1; och[t]:=v;
         sp[v]:=-1;
       end;

   end;

end;

Begin
    clrscr;
    {заполняем массив данными из файла и выводим его на экран}
    assign(f,'in.txt');
    reset(f);
    read(f,k); {число вершин}
    write('   ');
    for i:=1 to k do
      write(i:4);
      writeln;writeln;
    for i:=1 to k do
    begin
      write(i:3);
      for j:=1 to k do
      begin
        read(f,a[i,j]);
        write(a[i,j]:4);
      end;
      writeln;
    end;
    readln;
    close(f);

    {зануляем поток}
    for i:=1 to k do
      for j:=1 to k do
        fol[i,j]:=0;
    maxf:=0;

    repeat PMCH;
      if pm[k]<32000 then
      begin
        maxf:=maxf+pm[k];
        v:=k;
        while v<>1 do
        begin
          w:=otec[v];
          if sp[v]=1 then fol[w,v]:=fol[w,v]+pm[k]
                     else fol[v,w]:=fol[v,w]-pm[k];
          v:=w;
        end;
      end;

    until pm[k] =32000;

    {печать потока}
    write('   ');
    for i:=1 to k do
      write(i:4);
      writeln;writeln;
    for i:=1 to k do
      begin
        write(i:3);
        for j:=1 to k do
        begin
          write(fol[i,j]:4);
        end;
        writeln;
      end;
      write(maxf);
      readln;

End.