Uses Crt;

Var
   C : Byte;
   N : Longint;

{Function RK:Char;
 Begin
  C:=ReadKey;
  RK:=C;
 End;}
Procedure Beep;
 Begin
       Sound(200);
       Delay(100);
       NoSound;
 End;

Begin
 For C := 1 to 11 do
  begin
   Delay(300);
   Beep;
   {For N := 0 to 50000000 do ;}
   Delay(4000);
   Beep;
   Repeat until KeyPressed;
  end;
End.