编写程序实现以下功能：输入若干个整数（输入0结束），将不能被3整除的整数相加，并将求和结果输出。要求判断一个整数n是否能被另一个整数m整除的功能用一个函数实现。

'D:\\a1.dat'For Random Put #10ik Seek #105 根据分析可知，本题打开的文件可以先写后读，既可以读又可以写，同时又发现文件读写使用Get#和Put#语句，因此，应该用随机方式打开文件，故[13]处应填“'D:\\a1.dat'ForRandom”。通过一个For循环输入10个数，并把它们写到文件中去，因此[14]处应填“Put#10，i，r”。为读出第5个整数，必须首先把记录指针移到第5条记录处，可使用Seek#语句，故[15]处应填“Seek#10,5”。