format 2 int k'"R;^~xg
;&w_.j*Is
input x ?`
ebi|6
y=x/2 [p0_I7
z=10*Y E_D@7a
xOxyz6B\
a$=$str(z) Qdc#v\B
b$=$rightstring(a$,1) 1D"EF
c=sval(b$) S}/ZHo
if c==0 ?$\sMkn
print "x 是偶数" -q-BP}r3
else L?(1
[jB4G
print "x 是奇数" ZD?LsD 3
endif ?ZKIs9E[m
print x," ",y," ",z," ",a$," ",b$," ",c bM
W}.v!