求400之内的一对亲密对数。所谓亲密对数A和B，即A不等于B，且A的所有因子（如，6的因子是1、2、3）之和等于B，B的所有因子之和等于A。求出的亲密对数存放在A和B中，且A＜B。 注意：部分源程序给出如下。仅在标有"Program"和"End"的注释行之间补充代码，请勿改动其它内容。