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.
"Типов людей всего 10 : те которые понимают двоичный код и те, которые не понимают. "