var
  a : array [1..5,1..5] of longint;
  i,j,sum : longint;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      readln(a[i,j]);
  for i:=1 to 5 do
    for j:=1 to 5 do
      if a[i,j]=0 then
      sum:=sum+1;
  writeln(sum);
end.