修改下面程序得错误，使其能够计算出30以内（含30）能被5整除数之和。
clear
store 0 to x,y
do while.T.
x=x+1
do case
case mod(x,5)=0
exit
case x<=30
loop
endcase
y=y+x
enddo
?y