Program Sound_Demo;
Uses crt;

Procedure Beep (note, time : integer);
Begin
 If note > 0
 Then Sound (note);
 Delay (time);
 NoSound;
End;

Begin
 Beep (100, 100);
 Beep (150, 50);
End.

---