输入一个三位数的整数 pascal