{* Звук *}

Unit ZVIUK;
Interface
Implementation
Begin
 writeln('Простой звук
');
End.

Program pas;

Uses zviuk.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Постоянные значения *}
  speker_port = $61;
Var {* Необходимые переменные *}
  portval : byte;
Begin
  portval := port[speker_port] And $FC;
  While Not keypressed Do
  Begin
    port[speker_port] := portval Or 3;
    delay(5);
    port[speker_port] := portval;
    delay(5);
    port[speker_port] := portval Or 3;
    delay(5);
    nosound;
  End;
  readln; {* Ждем подтверждения пользователя *}
End.