program colors;
var FirstHill,SecondHill:integer;
var Colours: array of integer;
var BridgesBetwenHills: array [,] of integer;
var i,j,a,b,c:integer;
var n,IncorrectBriges:integer;
begin
Readln(n);
SetLength(Colours,n);
SetLength(BridgesBetwenHills,n,n);
for i:=0 to (n-1) do
 begin
 for j:=0 to (n-1) do
  begin
  read(BridgesBetwenHills[i,j]);
  Write(' ');
  end;
  Writeln();
 end;
Writeln();
for a:=0 to n-1 do
 begin
 Read(Colours[a]);
 end;
for b:=1 to n-1 do
 begin
 FirstHill:=Colours[b-1];
 SecondHill:=Colours[b];
 if not(SecondHill = FirstHill) then
  begin
  for c:=0 to n-1 do
   begin
   IncorrectBriges:= IncorrectBriges + BridgesBetwenHills[b,c]+ BridgesBetwenHills[b-1,c];
   end;
  end;
 end;
Writeln(IncorrectBriges);
end.
{7
0 1 0 0 0 1 1
1 0 1 0 0 0 0
0 1 0 0 1 1 0
0 0 0 0 0 0 0
0 0 1 0 0 1 0
1 0 1 0 1 0 0
1 0 0 0 0 0 0

1 1 1 1 1 3 3}