想用Free Pascal制作一个按一定节奏发生的程序，拿到学校机房去逗老师。但是crt单元的sound命令怎么都不起作用了。
测试程序如下：
Program sound1；
Uses Crt；
Begin
Sound（3000）；
Delay（3000）；
Nosound
End.
感觉没啥问题吧？编译也直接通过。可他就是不响！
（主机蜂鸣器没毛病，在Cmd中输入echo CtrlG可以正常发出声音。）

@XP也梦想着Win7 

话说pascal吧这么冷清-。-

话说你这玩意做出来什么效果啊我试试→ →

@echo off
:K
echo 轻敲键盘&pause >nul
echo CtrlG
Goto K
恩放下面了、、、@千叶迷1998 

#include <stdio.h>
#include <windows.h>
int main()
{
while(1)
{
Beep(700,500);
Sleep(100);
}
return 0;
}

话说到现在了都没人理你一句-。-

对了，@千叶迷1998 ，你知道磁盘坏道了怎么整么。。

这个程序运行之后什么反应。。。应该是只响一声吧？

用Windows库里的beep吧 跟c++一样用

crt改为wincrt