format 2 int 4htSwK+
r~D~7MNl
input x 8HRPJSO~g
y=x/2 :C:N]6_{SZ
z=10*Y ^]lwd"$
%3l;bR>
a$=$str(z) a+>W
b$=$rightstring(a$,1) ap$tu3j
c=sval(b$) eDM0417O(
if c==0 *_).UAP.
print "x 是偶数" 5c}9
else vo( j@+dz
print "x 是奇数" y'2kV6TtqD
endif g<T`F
print x," ",y," ",z," ",a$," ",b$," ",c 1-NX>E5