input""a while(a>=1)?a using"%.1f" a=val(str$(a,"%.0f"))/2wend