Добиться впечатления одного непрерывного постепенно повышающегося звука (сирена) - Turbo Pascal

Формулировка задачи:

Уменьшив как следует числа в операторах Delay(1000) и hz:=hz+40, можно добиться впечатления одного непрерывного постепенно повышающегося звука (сирена).

Решение задачи: «Добиться впечатления одного непрерывного постепенно повышающегося звука (сирена)»

Листинг программы

uses crt;
var hz:integer;
begin
hz:=100;
repeat
sound(hz);
delay(10);
nosound;
inc(hz,10);
until keypressed or(hz>5000);
end.

Объяснение кода листинга программы

Код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет переменную hz типа integer и инициализирует её значением 100.
Запускает цикл repeat-until, который продолжается до тех пор, пока не будет нажата клавиша или значение переменной hz не превысит 5000.
Внутри цикла вызывается функция sound(hz), которая воспроизводит звук с частотой, равной значению переменной hz.
Затем вызывается функция delay(10), которая задерживает выполнение программы на 10 единиц времени.
После этого переменная hz увеличивается на 10, и цикл повторяется снова.
Если в процессе выполнения цикла будет нажата клавиша, то вызывается команда nosound, которая отключает звук.
Код завершается, когда значение переменной hz превышает 5000.