输入包括两行数据。

第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。

第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。

【输出】 输入包括两行数据。

第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。

第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。

【样例输入】 100 200 150 140 129 134 167 198 200 111 110 【样例输出】 5 参考程序】 var reads,for1,Hecan:integer; apple:array[1..10] of integer; begin for for1:=1 to 10 do read(apple[for1]); readln(reads); readln; for for1:=1 to 10 do if reads+30>=apple[for1] then inc(Hecan); writeln(Hecan); readln; end.。