format 2 int [8acan+
2l
RH$YM
`cZ
input x #B_H/9f(
y=x/2 mK^E@uxN
z=10*Y mMCd
{t]8#[lo
a$=$str(z) >Wd_?NaI
b$=$rightstring(a$,1) 5+(Cp3
c=sval(b$) {aU|BdATI
if c==0 - Sn]`
print "x 是偶数" >I+p;V$@
else 'Awd:Aed5
print "x 是奇数" QUz4 Kt
endif _ZK*p+u%
print x," ",y," ",z," ",a$," ",b$," ",c 8\?H`NN