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.
"Преподаватель посмотрел в аудиторию, увидел, что много отсутствующих на лекции и изрек мудрую мысль (с обидой, правда, в голосе): "Чем вас больше меньше, тем мне больше лучше" "