rt,谢谢了~

是crt单元，readkey是crt单元里的一个函数。

uses crt;var r:char;beginr:=readkey;end.屏幕上不显示keypressed能看你有没有按键使用方式if keypressed then r:=readkey;http://hi.baidu.com/jiangyuzhou/blog/category/pascal%B1%E0%B3%CC%D7%E9上有很多pascal编的游戏和题目^