Umístnení souboru www.TrSek.com/cover/patak/sirena.pas{ 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.