format 2 int /j@r~mt/pA
`R?W @,@'
input x *03/:q ^(
y=x/2
)fL*Ws6
z=10*Y `\0a5UFR
"uC*B4`
a$=$str(z) B9-[wg#0G
b$=$rightstring(a$,1) 04d$_1:}a
c=sval(b$) cN>i3}fq
if c==0 -y.AJ~T
print "x 是偶数" k4rBS
else xB+H7Ya
print "x 是奇数" iCKwd 9?)
endif 1hS~!r'qqv
print x," ",y," ",z," ",a$," ",b$," ",c = lD]sk