format 2 int @J r
d\)v62P
input x dH`a|SVW9
y=x/2 ;euWpE;E\#
z=10*Y nn=JM7e\9
SN]/~>/
a$=$str(z) qWanr7n]@
b$=$rightstring(a$,1) [w{ZP4d>
c=sval(b$) ZzKn,+
if c==0 sm_:M| [D
print "x 是偶数" qS2%U?S7
else ?0?'
print "x 是奇数" c<H4rB
endif I7uYsjh@u
print x," ",y," ",z," ",a$," ",b$," ",c ko5\*!|:lj