记录编号	108798	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]陶陶摘苹果	最终得分	100
用户昵称	xly	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2014-07-06 14:58:25	内存使用	0.17 MiB

const
v=30;
var
  a:array[1..10]of integer;
  p,q,i:integer;
begin
assign(input,'apple.in');
assign(output,'apple.out');
reset(input);
rewrite(output);
  for i:=1 to 10 do
    read(a[i]);
  read(p);
  for i:=1 to 10 do
    if (p+v>a[i]) or (p+v=a[i]) then q:=q+1;
write(q);
close(input);
close(output);
end.