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.
"Человеческая глупость дает представление о бесконечности. "