Var sum,i,j:integer;
M: array [1..3,1..4] of integer;
Begin
Sum:=0;
For i:=1 to 4 do
For j:=1 to 3 do
Read(m[j,i]);
Sum:=sum+m[2,i];
Write(sum);
End.
