{ SIRENA.PAS                              Copyright (c) Pavel Patak }
{ Mela by pistet, ale to vzhledem ke kvalite dnesnich speakru...    }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Sirena;
Uses Crt;
Var Frekvence : Integer;
Begin
 For Frekvence:=37 to 30000 do
    Begin
       Sound(Frekvence);
    End;
 For Frekvence:=37 to 30000 do
    Begin
       Sound(30037-Frekvence);
    End;
End.