var
  a : array [1..100] of longint;
  i,sum,n : longint;
begin
  for i:=1 to 15 do
    readln(a[i]);
  sum:=0;
  for i:=1 to 15 do
    if a[i]=1,2,3,4,5,6 then
      sum:=sum+1;
  writeln(sum);
end.