k=0
for i=1:10;
j=1:i
if sum(1/j)>5
k=k+1
endif
endfor