format 2 int JTSq{NN
o(?VX`2"
input x >cBGw'S
y=x/2 m]{<Ux
z=10*Y 4!NfQk>X
y21)~
a$=$str(z) `wP/Zp{Hy
b$=$rightstring(a$,1) M@',3
c=sval(b$) \.K\YAM<
if c==0 ./7&_9|<
print "x 是偶数" j|3g(_v4W
else ?Ry%c6(}
print "x 是奇数" <K=@-4/Bp
endif '*o7_Ez-{
print x," ",y," ",z," ",a$," ",b$," ",c []GthF