local n,nwantroot,dime acount(20) store .9 to acount && something to get into the loop acount[1] = 1 n = 2 set deci to 15 nwantroot = 2 ? 'Start number is: ',nwantroot do while acount[n] != acount[n-1] acount[n+1] = (acount[n] + nwantroot/acount[n])/2 n = n + 1 enddo ? "Number's Root is:",acount[n]