program ChineseInKeyword; var a; begin re读ad(a) end