format 2 int Z)B5g>
!"{+|heU9p
input x |V#h
"s
y=x/2 O?|st$g
z=10*Y 6|*em4
dZ'hTzw~
a$=$str(z) D^1H(y2zp
b$=$rightstring(a$,1) tkrRdCq
c=sval(b$) vCE1R]^A.]
if c==0 XKqUbi
print "x 是偶数" 5nL,sFd
else u`Kjs}F'
print "x 是奇数" ln}2
endif n~xh
%r;
print x," ",y," ",z," ",a$," ",b$," ",c "NqB_?DT