Program Sound_Test;
Uses Crt;
Var Frequency:Integer;
    tone:Integer;
Begin
  While Not Keypressed Do Begin
    TextAttr:=9;
    Write('Whoop');
    Textattr:=10;
    Write('...');
    For Frequency:=3000 to 20 Do
    Begin
      Delay(1);
      Sound(Frequency);
    End;
    For Tone:=1000 to 200 do Begin
      Delay(1);
      Sound(Tone);
      End;
    Delay(100);
  End;
  NoSound;
End.