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