国际邮件撤回或修改收件人名址申请费为每件8元。

下面程序的功能是求1～100之间所有整数的平方和并输出结果，请填空。
SET TALK OFF
CLEAR
S=0
X=1
DO WHILE X＜=100
【7】
【8】
ENDDO
S
RETURN