format 2 int i+M*J#'
SlT*C6f
input x 1(`M~vFDK
y=x/2 [EHrIn
z=10*Y Fm j=
6*1$8G`$8,
a$=$str(z) I6OSC&A`
b$=$rightstring(a$,1) JE%A|R<Jl
c=sval(b$) QV,E#(\5
if c==0 P0\eBS
print "x 是偶数" +p/1x'J
else !jh%}JJ
print "x 是奇数" 9F_6}.O
endif ]O!s'lC
print x," ",y," ",z," ",a$," ",b$," ",c 9d[qhkPu)