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

n,i,s:longint;

begin

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

readln;

readln(n);

s:=0;

for i:=1 to 10 do

if n+30>=a[i] then s:=s+1;

writeln(s);

end.