a:array[1..10] of integer;

i,n,s,b:integer;

begin

for i:=1 to 10 do read(a[i]);

readln(n);

s:=n+30;

for i:=1 to 10 do

if a[i]<=s then inc(b);

writeln(b);

end.