记录编号	201979	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]陶陶摘苹果	最终得分	100
用户昵称	noip2015	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2015-10-31 16:13:51	内存使用	0.17 MiB

program apple;
var a:array[1..10] of integer;
n,i,total:integer;
begin
assign(input,'apple.in');reset(input);
assign(output,'apple.out');rewrite(output);
for i:=1 to 10 do read(a[i]);
readln(n);
n:=n+30;
for I:=1 to 10 do
if n>=a[i] then inc(total);
writeln(total);
close(input);close(output);
End.