程序如下：

const g=30;

var

a:array[1..10] of integer;

r,i,gao:integer;

begin

r:=0;

for i:=1 to 10 do

read(a[i]);

readln;

readln(gao);

for i:=1 to 10 do

if gao+g>=a[i] then r:=r+1;

writeln(r);

end.