Написать программу, которая выдает последовательность звуков с заданными частотами - Pascal

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

Написать программу, которая выдает последовательность звуков с частотами 440,880, 1320, 1760 Гц, длительностью 1 сек. Народ, кинет кто похожие программы или примеры? Буду очень признателен

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

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

uses crt;
begin
sound(440);
delay(1000);
nosound;
sound(880);
delay(1000);
nosound;
sound(1320);
delay(1000);
nosound;
sound(1760);
delay(1000);
nosound;
readln
end.

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

В начале кода используется библиотека crt, которая используется для работы с звуком в Delphi.
Первая команда sound(440) воспроизводит звук с частотой 440 Гц.
Затем следует команда delay(1000), которая вызывает задержку в течение 1 секунды.
Следующая команда nosound отключает звук.
Затем воспроизводится звук с частотой 880 Гц.
После этого идет задержка в течение 1 секунды.
Команда nosound отключает звук.
Звук с частотой 1320 Гц воспроизводится следующей командой.
Затем идет задержка в течение 1 секунды.
Команда nosound отключает звук.
Звук с частотой 1760 Гц воспроизводится командой.
После этого идет задержка в течение 1 секунды.
Команда nosound отключает звук.
Программа переходит к чтению ввода с помощью команды readln.
Конец программы.