format 2 int 7uW=f kxT
1ms(03dp
input x 1r LK1X
y=x/2 |`,AAa
z=10*Y O4.`N?Xq
g`9`/
a$=$str(z) he\ pW5p
b$=$rightstring(a$,1) p.|NZXk%%a
c=sval(b$) iVe"iH
if c==0 _aj,tz
print "x 是偶数" O~
]3 .b
else 6I!B>V#U+
print "x 是奇数" Z]\VOA>
endif v%$c_'d
print x," ",y," ",z," ",a$," ",b$," ",c t#BQB<GI