x=34567 y=0 flag=. DO WHIL flag y=x% 10+y * 10 x=int(x/10) IF x>0 flag=. ENDIF ENDDO x=34567 y=0 flag=. DO WHIL flag y=x%10+y * 10 x=int(x/10) IF x=0 flag=. ENDIF ENDDO x=34567 y=0 flag=. DO WHIL!flag y=x%10+y* 10 x=int(x/10) IF x>0 flag=. ENDIF ENDDO x=34567 y=0 flag=. DO WHIL!flag y=x%10+y* 10 x=int(x/10) IF x=0 flag=. ENDIF ENDDO