CLS
INPUT "input the regular price and then the discount"; reg, disper
PRINT "the answer is $"; reg - disper / 100 * reg
END