format 2 int 5,pKv
@7C?]/8#
input x WrS|$: 0
y=x/2 `(RQh@H
z=10*Y ns{BU->f
%Q0J$eC
a$=$str(z) %dyE F8)
b$=$rightstring(a$,1) 6@2 S*\&
c=sval(b$) X)tf3M
{J@
if c==0 :n4X>YL)
print "x 是偶数" j\ dY
else PhS`,I^Z
print "x 是奇数" z&"-%l.b@}
endif *TjolE~o
print x," ",y," ",z," ",a$," ",b$," ",c q
$Hg\ {c