format 2 int El;\#la
k !S0-/h
input x )T1U!n?^x
y=x/2 [i18$q5D
z=10*Y /Q4TQ\:
%T hY6y(
a$=$str(z) >~-8RM
b$=$rightstring(a$,1) 2NHkK_B1P
c=sval(b$) wo($7'.@
if c==0 e6C;A]T2E
print "x 是偶数" $niJw@zC
else ^tS{a *Yn
print "x 是奇数" )~{T
endif IJxBPwh
print x," ",y," ",z," ",a$," ",b$," ",c }pJ6CW