#12#13#9#9#10#10#11#12#12#12#13#13+ 
#15#15#16#17#18#22#9#11#12#13#17#10#11#7#7#8+ 
#9#9#10#10#10#10#10#10#11#11#11#11#11#12#12#12+ 
#12#12#12#13#13#13#13#13#14#14#14#14#14#15#15#16+ 
#16#16#17#17#17#17#19#18#22#0#7#7#8#8#9#9+ 
#10#10#10#10#10#10#10#10#11#11#12#12#12#12#12#12+ 
#13#13#13#13#13#13#13#14#14#14#14#14#14#14#15#15+ 
#15#15#16#16#16#16#16#16#16#16#17#18#18#18#18#21+ 
#23#11#12#8#8#9#9#10#11#13#13#14#14#14#15#0+ 
#8#9#9#9#9#10#11#11#11#11#12#12#12#12#13#13+ 
#13#13#13#13#14#14#14#14#14#15#15#16#17#19#24#5+ 
#9#11#12#9#6#9#10#11#12#13#14#15#15#16#16#22+ 
#12#8#11#11#11#12#15#16#12#9#10#10#12#12#12#12+ 
#13#15#15#16#16#16#18#20#21#0#10#7#8#9#9#9+ 
#9#10#10#10#10#10#10#10#10#10#10#11#11#11#11#11+ 
#11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+ 
#12#12#13#13#13#13#13#13#13#13#14#14#14#14#14#14+ 
#14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+ 
#15#15#15#15#15#15#16#16#16#16#16#16#16#16#16#16+ 
#17#17#17#17#17#17#17#17#17#17#17#18#18#18#18#19+ 
#19#19#19#20#21#24#26#6#14#17#17#10#8#9#9#9+ 
#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+ 
#11#12#12#12#12#12#12#13#13#13#13#13#13#14#14#14+ 
#14#14#14#14#14#14#14#14#14#15#15#15#15#16#16#16+ 
#16#16#17#17#17#17#17#17#18#18#18#19#19#19#8#9+ 
#11#12#10#10#9#9#9#10#10#10#10#11#11#11#11#12+ 
#13#13#14#15#17#18#19#10#10#11#13#13#19#11#11#13+ 
#15#15#16#9#10#10#11#11#12#12#13#14#14#14#15#15+ 
#15#15#15#16#18#6#14#9#11#12#14#14#15#15#16#17+ 
#6#12#14#14#17#25#11#19#9#12#13#13#23#11#15#10+ 
#11#9#10#10#10#12#12#12#13#13#13#14#14#14#14#14+ 
#15#15#16#16#16#17#17#18#19#19#19#20#20#21#7#16+ 
#10#13#14#18#18#10#10#11#11#11#12#12#12#12#12#12+ 
#12#12#13#13#13#13#13#13#13#14#14#15#15#15#15#15+ 
#15#15#15#16#16#16#16#16#16#16#16#17#17#17#19#19+ 
#19#19#19#20#21#22#22#23#24#7#12#13#13#17#17#11+ 
#11#12#12#13#13#14#15#13#18#12#11#12#12#14#14#15+ 
#16#16#19#19#20#22#10#13#13#13#14#14#15#15#17#8+ 
#12#20#8#10#10#13#14#18#18#14#14#15#16#17#18#18+ 
#21#24#12#12#13#13#13#13#13#13#13#13#14#14#14#14+ 
#14#14#14#14#15#15#15#15#15#15#15#15#15#15#16#16+ 
#16#16#16#16#16#16#16#16#16#16#17#17#17#17#17#17+ 
#17#17#18#18#18#18#18#19#19#19#19#19#19#20#20#20+ 
#21#14#14#15#15#16#18#18#18#19#19#13#13#14#14#14+ 
#15#15#17#17#18#18#19#19#22#14#14#15#16#16#17#19+ 
#12#15#18#22#22#10#13#14#15#15#16#16#16#18#19#20+ 
#23#25#14#15#17#13#16#16#17#19#19#21#23#17#17#17+ 
#18#18#19#20#20#20#20#21#17#18#20#23#23#16#17#23; 

var 
no:integer; 
BiHua:integer; 
str:string; // str[40] 
BiHuaI:integer; 
ch1:char; 
ch2:char; 
len:integer; 
begin 
str:=chnstr; 
BiHuaI:=1; 
BiHua:=0; 
len:=length(str); 
while BiHuaI<=len do 
begin 
ch1:=str[BiHuaI]; 
BiHuaI:=BiHuaI+1; 
if (ord(ch1)>=176) and (BiHuaI<=len) then 
begin 
ch2:=str[BiHuaI