DmitryINF Program main;
var
 mas:array[1..5,1..4] of integer;
 sum,j,i:integer;
begin
 sum:=0;
 for j:=1 to 5 do
  for i:=1 to 4 do
   read(mas[j][i]);
 for j:=1 to 5 do
  for i:=1 to 4 do
   if mas[j][i]>0 then
    sum:=sum+1;
 writeln(sum);
end.