用Pascal for循环计算1到1000之间能同时被3和5整除的整数的和.