clear
s=0
n=1001
k=0
do while k<=20
do case
case n%4=0
s=s+n
k=k+1
?n
case n%6=0
s=s+n
k=k+1
?n
endcase
n=n+1
enddo
?"前20项之后为：",s