var
a:char;
begin {开始}
readln(a); {读取字符}
if (ord(a)>=48)and(ord(a)<=57) then write('number'); {当48<=它的序列号<=57时,它是数字}
if (ord(a)>=65)and(ord(a)<=90) then write('big letter'); {当65<=它的序列号<=90时,它是大写字母}
if (ord(a)>=97)and(ord(a)<=122) then write('small letter') {当97<=它的序列号<=122时,它是小写字母}
else write('other character'); {其它的话,它是其它字符}
end. {结束}
温馨提示:答案为网友推荐,仅供参考