a=0; n=1; while 5-1/n > 0 1/n = 1/n + 1/n+1 a = a+1 end