format 2 int $/*6tsR
h "7:&=e
input x MpV3.
y=x/2 >d`XR"_e
z=10*Y a cSm+t
T,Bu5:@#
a$=$str(z) "funFvY
b$=$rightstring(a$,1) B]`!L/
c=sval(b$) Y7vTseq
if c==0 &
*^FBJEa.
print "x 是偶数" sG/mmZHYzr
else "5KJ /7q!
print "x 是奇数" U5 `h
endif $a.!X8sHB.
print x," ",y," ",z," ",a$," ",b$," ",c +s*OZ6i [