Программирование / Курсовые / Arcanoid / Arcanoid / ARCSOUND

unit ArcSound;
 interface
  procedure Beep;
  procedure Beep1;
  procedure Beep2;
  procedure Beep3;
 implementation
uses CRT;
 procedure Beep;
   begin
    Sound(1000); Delay(200); NoSound;
   end;
 procedure Beep1;
   begin
    Sound(50); Delay(500); NoSound;
   end;
 procedure Beep2;
   begin
    Sound(100); Delay(50); NoSound;
   end;
 procedure Beep3;
   begin
   Sound(300);Delay(2000);
   Sound(400);Delay(500);
   Sound(200);Delay(1000);
   Sound(1000);Delay(2000);
   Sound(400);Delay(2000);
   NoSound;
   end;
end.