有如下一段程序：
SET TALK OFF
A=1
B=0
DO WHILE A＜=100
IF.NOT.A/2=INT(A/2)
B=B+A
ENDIF
A=A+1
ENDDO
B
SET TALK ON
RETURN
该程序的功能是______。