var a:array [1..10]of integer; i,j,k,x:integer; n:shortint;beginwhile not eof do beginfor i:=1 to 10 do read(a[i]);readln(n);for j:=1 to 10 doif a[j] <=n+30 then inc(x);writeln(x);end;end.
