**TI86** r bMSUM b`ClLCDÖPrompt AÖPrompt BÖPrompt NÖ(B-A)/NDÖ0SÖFor(K,1,N,1)ÖA+(2K-1)*D/2xÖy1+SSÖEndÖDisp S*DÖ$