Создать программу, позволяющую определить уровень восприятия звука - Turbo Pascal

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

Человеческое ухо воспринимает не все звуки (больше 1000 Гц). Создать программу, позволяющую определить уровень восприятия звука отдельным человеком. На экран вывести значение частоты звука.

Решение задачи: «Создать программу, позволяющую определить уровень восприятия звука»

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

uses crt;
var hz:integer;
begin
clrscr;
writeln('             По нажатию Enter будет включен звук.');
writeln('Когда Вы перестанете его слышать быстро нажмите любую клавишу');
readln;
hz:=1000;{начальная частота}
repeat
sound(hz); {звук}
delay(100);{задержка}
nosound;{выключение}
hz:=hz+10;{наращивание частоты}
until keypressed;
write('Ваш уровень восприятия=',hz,' Гц');
readln
end.

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

В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal и используется для работы с консолью.
Переменная hz инициализируется значением 1000, которое представляет начальную частоту звука.
Выводится сообщение с инструкциями для пользователя.
Запускается цикл repeat, который будет выполняться до тех пор, пока пользователь не нажмет клавишу.
Внутри цикла выводится звук с помощью функции sound, параметром которой является значение переменной hz.
После звука выводится задержка с помощью функции delay, которая длится 100 миллисекунд.
Затем выводится команда nosound, которая выключает звук.
Значение переменной hz увеличивается на 10, чтобы наращивать частоту звука.
Цикл повторяется до тех пор, пока пользователь не нажмет клавишу.
После окончания цикла выводится сообщение с результатом, содержащее значение переменной hz.
Вызывается функция readln, чтобы дождаться нажатия клавиши от пользователя.
Конец программы.