哎，不记的有这个东西啊，你也太懒了，以个变量不就行了!

这个必须调用CRT库(即在program xxx;后面加上uses CRT; 另外,竞赛中不允许使用)
首先,如果键盘在上一次读入之后被摁下过,KeyPressed(func. bool.)会返回"真"
其次,读入的方法是readkey(func. char.)如果返回#0那么需要读下一位:
程序
var c:char
begin
  c:=readkey;
  if c=#0 then write('#0#',ord(readkey)) else write(ord(c));
end.
试几次就会明白怎么回子事儿了.

var
  n:char;
begin
  readln（n）；
end.
这是程序的一部分