讓你的電腦一直嗶嗶叫的程式

program Project2;

uses
  Windows;

var
  n: integer;
begin

  for n:=1 to 32767 do
    Windows.Beep(n,30);
end.