format 2 int "oz qfh
%[l5){:05
input x ?v\A&d
y=x/2 S)T~vK(n
z=10*Y lo5,E(7~h
q{nNWvL
a$=$str(z) C5c@@ch :
b$=$rightstring(a$,1) c=0S]_
c=sval(b$) KC[ql}JP
if c==0 kFg@|#0v9
print "x 是偶数" >,yE;zuw
else 4$oNh)+/h
print "x 是奇数" |7LhE+E
endif ZEYT17g]
print x," ",y," ",z," ",a$," ",b$," ",c tURjIt,I