format 2 int #kR8v[Z
6X$]d^)h{
input x ZQlja
y=x/2 [z5pqd-
z=10*Y
")q
xRuAt/aC
a$=$str(z) {r yv7G
b$=$rightstring(a$,1) 96fbMP+7R
c=sval(b$) ifHQ2Ug9
if c==0 ?>92OuG%W?
print "x 是偶数" :*4b,P
else z'z_6]5
print "x 是奇数" S8(Y+jgk;a
endif
|_xU{Pu
print x," ",y," ",z," ",a$," ",b$," ",c nYhI0q