format 2 int .2pK.$.
$"&JWT!#
input x OTp]Xe/
y=x/2 *kVV+H<X|b
z=10*Y {T8Kk)L
iUwzs&frd
a$=$str(z) ':}\4j&{E
b$=$rightstring(a$,1) +{>=^9%X
c=sval(b$) :!/8Hv
if c==0 f-d1KNY
print "x 是偶数" 9Ee'Cm
else BD-AI
print "x 是奇数" W`&hp6Jq
endif TKjFp%
print x," ",y," ",z," ",a$," ",b$," ",c BC]?0 U