Программа со звуками - Turbo Pascal

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

надо составить не большую песенку из нескольких нот (например Чижик-пыжик). Помогите плз

Решение задачи: «Программа со звуками»

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

Uses CRT;
procedure Z;
begin
Delay(500);
nosound;
Delay(20);
end;
Procedure mi;
Begin
sound(659);
Z;
End;
Procedure do1;
Begin
sound(523);
Z;
End;
Procedure fa;
Begin
sound(698);
Z;
End;
Procedure re;
Begin
sound(587);
Z;
End;
Procedure sol;
Begin
sound(784);
Z;
End;
Procedure lya;
Begin
sound(880);
Z;
End;
Procedure si;
Begin
sound(988);
Z;
End;
BEGIN
clrscr;
mi; do1; mi; do1; fa; mi; re; sol; sol; lya; si; do1; do1; do1;
readln
End.

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

В коде используется библиотека CRT, которая предоставляет функции для работы с консолью.
Функция Delay(500) задерживает выполнение программы на 500 миллисекунд.
Функция nosound отключает звуковое воспроизведение.
Процедура Z не имеет параметров и выполняет задержку в 20 миллисекунд.
Процедура mi воспроизводит звук с частотой 659 Гц.
Процедура do1 воспроизводит звук с частотой 523 Гц.
Процедура fa воспроизводит звук с частотой 698 Гц.
Процедура re воспроизводит звук с частотой 587 Гц.
Процедура sol воспроизводит звук с частотой 784 Гц.
Процедура lya воспроизводит звук с частотой 880 Гц.
Процедура si воспроизводит звук с частотой 988 Гц.
Программа начинается с инициализации консоли.
Программа вызывает процедуры mi, do1, fa, re, sol, sol, lya, si, do1, do1, do1.
Программа считывает ввод пользователя с помощью функции readln.