CLS PRINT "This program dissects a number to prime numbers" PRINT INPUT "Give a Number",a d=2 t=1 r=a PRINT r;" = "; WHILE t<>r AND d<=SQR(r) i=0 WHILE a MOD d=0 a=a/d INC i t=t*d WEND IF i<>0 PRINT d;"^";i;" * "; ENDIF INC d IF d>3 INC d ENDIF WEND IF t<>r PRINT r/t ENDIF