A. X=34567 Y=0 flag=.T. DO WHILE flag Y=X%10+Y*10 X=INT(X/10) IF X>0 Flag=.F. ENDIF ENDDO B. X=34567 Y=0 flag=.T. DO WHILE flag Y=X%10+Y*10 X=INT(X/10) IF X=0 Flag=.F. ENDIF ENDDO C. X=34567 Y=0 flag=.T. DO WHILE ! flag Y=X%10+Y*10 X=INT(X/10) IF X>0 Flag=.F. ENDIF ENDDO D. X=34567 Y=0 flag=.T. DO WHILE ! flag Y=X%10+Y*10 X=INT(X/10) IF X=0 Flag=.F. ENDIF ENDDO