Программирование звуковых сигналов - Turbo Pascal

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

составить программу звука, который на картинке.

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

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

                            uses crt;
begin
{re2}
sound(1174);
delay(500);
nosound;
{la2}
sound(1760);
delay(500);
nosound;
{sol2}
sound(1568);
delay(250);
nosound;
{fa2}
sound(1396);
delay(250);
nosound;
{mi2}
sound(1318);
delay(250);
nosound;
{re2}
sound(1174);
delay(250);
nosound;
{do2}
sound(1047);
delay(500);
nosound;
{sol2}
sound(1568);
delay(500);
nosound;
{fa2}
sound(1396);
delay(250);
nosound;
{mi2}
sound(1318);
delay(250);
nosound;
{re2}
sound(1174);
delay(250);
nosound;
{do2}
sound(1047);
delay(250);
nosound;
{si1}
sound(988);
delay(500);
nosound;
{fa2}
sound(1396);
delay(500);
nosound;
{mi2}
sound(1318);
delay(250);
nosound;
{re2}
sound(1174);
delay(250);
nosound;
{do2}
sound(1047);
delay(250);
nosound;
{si1}
sound(988);
delay(250);
nosound;
{la1}
sound(880);
delay(500);
nosound;
{mi2}
sound(1318);
delay(500);
nosound;
{re2}
sound(1174);
delay(250);
nosound;
{do2}
sound(1047);
delay(250);
nosound;
{si1}
sound(988);
delay(250);
nosound;
{la1}
sound(880);
delay(250);
nosound;
readln
end.
                        