program apple;
 var
  n,s,i:longint;
  a:array [1..10] of longint;
begin
  s:=0;
  for i:=1 to 10 do
    read(a[i]);
  readln(n);
  n:=n+30;
  for i:=1 to 10 do
    if a[i]<=n then inc(s);
  writeln(s);
  readln;
end.
/**************************************************************
	Problem: 2252
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/