format 2 int @y\{<X.F\1
ID)gq_k[8,
input x u0oYb_Yv
y=x/2 w[$nO#
z=10*Y ?#EXG
N7I71q|
a$=$str(z) j'40>Ct=i
b$=$rightstring(a$,1) WO(&<(?
c=sval(b$) noUZ9M|hz
if c==0 +S5_J&~
print "x 是偶数" a6k(O8Ank3
else 9X{nJ"
print "x 是奇数" S_ -QvG2
endif ME10dr
print x," ",y," ",z," ",a$," ",b$," ",c ox=7N{+`J