希腊数学家对那些真约数的和等于该数本身的这些数特别感兴趣(n

希腊数学家对那些真约数的和等于该数本身的这些数特别感兴趣(n的真约数指的是小于n本身的任何约数)。这样的数被称为完全数(perfect number)。例如,6是一个完全数,因为它是1、2、3的和，1、2、3是小于6但能被6整除的数。类似地,28也是一个完全数,因为它是1、2、4、7、14 的和。
设计一个子程序IsPerfect,它取一个整数n,当n是完全数时,返回1，否则返回0。设计一个主程序,用IsPerfet检查1~9 999中的每个数，看它是否是完全数。当发现是完全数时,将它显示在屏幕上。请用N-S图描述子程序和主程序的算法。