format 2 int 7G 3*@cl
~V:@4P
input x &i8UPp%
y=x/2 08pG)_L
z=10*Y /^jV-Z`
p> #QFd"m
a$=$str(z) ?yq $
>Qba
b$=$rightstring(a$,1) F%s'R 0l
c=sval(b$) ;H%T5$:trP
if c==0 r'/H3
print "x 是偶数" dK^WZQ
else 0DIXd*oj &
print "x 是奇数" "^3pP(8;~
endif Y7L1`<SC
print x," ",y," ",z," ",a$," ",b$," ",c + NpHk