format 2 int u\x}8pn
;|5F[
input x Ovt.!8
y=x/2 M~#g RAUJ
z=10*Y # E^1|:
y$F'(b|)
a$=$str(z) _476pZ_
b$=$rightstring(a$,1) E7 Ul;d
c=sval(b$) gQelD6c
if c==0 d>&,9c%
print "x 是偶数" =:,g
else e&F8m%t
print "x 是奇数" He/8=$c%
endif >,Ci?[pf
print x," ",y," ",z," ",a$," ",b$," ",c N1S{suic