记录编号	131109	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]陶陶摘苹果	最终得分	100
用户昵称	稠翼	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2014-10-23 20:56:41	内存使用	0.17 MiB

var
   a:array[1..10]of integer;
   i,x,ans:longint;
procedure init;
begin
     assign(input,'apple.in');reset(input);
     assign(output,'apple.out');rewrite(output);
end;
procedure main;
begin
     for i:=1 to 10 do read(a[i]);
     readln;
     readln(x);
     inc(x,30);
     for i:=1 to 10 do if a[i]<=x then inc(ans);
     writeln(ans);
end;
begin
     init;
     main;
end.//complete by chouyi 20141023