CLS INPUT "Enter SDC: ", A B = 0 WHILE (A > 0) B = B + 1 A = A - B WEND PRINT "SP:"; B END