format 2 int ;la#Vf:]
y3KcM#[
input x "Ql}Y1
y=x/2 {KU.
z=10*Y M)`HK
.
S}m$,<x
a$=$str(z) pVV}1RDa
b$=$rightstring(a$,1) uK;K{
c=sval(b$) (!0j4'
if c==0 V{T{0b"\U
print "x 是偶数" iBKb/Oi6
else h5&/hBN
print "x 是奇数" "^9[OgE:
endif y7M:b Uh
print x," ",y," ",z," ",a$," ",b$," ",c 0HHui7Yy>