用delphi实现一个关于折扣的小例子((包括函数的调用以及简单的算法))