陶陶摘苹果

program taotao;
var a:array[1..10]of integer;
    i,s,y:integer;
begin
  assign(input,'apple.in');
  reset(input);
  assign(output,'apple.out');
  rewrite(output);
  s:=0;
  for i:=1 to 10 do
   read(a[i]);
   read(y);
  for i:=1 to 10 do
   if y+30>=a[i] then s:=s+1;
  writeln(s);
  close(input);
  close(output);
end.