记录编号	101489	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]陶陶摘苹果	最终得分	100
用户昵称	我密码是sjb	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2014-05-12 17:11:55	内存使用	0.17 MiB

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