format 2 int wAj(v6
7oqn;6<[>,
input x wKeSPs{x
y=x/2 ux/[d6To
z=10*Y ;{F;e)${M
o+6^|RP
a$=$str(z) s1*WK&@
b$=$rightstring(a$,1) x"h)"Y[c5
c=sval(b$) *6\`A!C
if c==0 "8C(_z+]K`
print "x 是偶数" 6{FS/+
else SjNwT[.nr7
print "x 是奇数" <|>:UGAR
endif f@x( ,p
print x," ",y," ",z," ",a$," ",b$," ",c !A ydhe