format 2 int k_<8SG+`
v/B:n
input x {<3>^ o|"
y=x/2 v
lsS
z=10*Y +w
pe<T
@)YQiE$
a$=$str(z) f:-dw6a=s
b$=$rightstring(a$,1) E@F:U*A6%
c=sval(b$) Z*rA~`@K6
if c==0 ;c_pa0L
print "x 是偶數(shù)" _ooSMp|
else ]XH}G9X^
print "x 是奇數(shù)" wzRIvm{
endif cOr@dUSL
print x," ",y," ",z," ",a$," ",b$," ",c Z|kMoB