format 2 int |p8"9jN@}c
&t*8oNwSs
input x
uRB)g
y=x/2 ) (?UA$"
z=10*Y 32bkouq
O2'bNR
a$=$str(z) sQ>B_Y!
b$=$rightstring(a$,1) FG;<`4mY
c=sval(b$) .y;\puNq
if c==0 _sf#J|kQ
print "x 是偶数" 8%2rgA
else cpF1Xp vT
print "x 是奇数" p'%: M
endif J^g,jBk
print x," ",y," ",z," ",a$," ",b$," ",c 1 ~B<