Среда разработки: Turbo Pascal 7.1

uses crt;
var answer:byte;
type music=array[1..40] of integer;
{---------------------------------------------}
const
doo=round(523.25);      re=round(587.33);       mi=round(659.26);
fa=round(698.46);       sol=round(784.99);      la=round(880.00);
si=round(987.77);

doo2okt=round(1046.50); re2okt=round(1174.07);  mi2okt=round(1318.05);
fa2okt=round(1396.09);  sol2okt=round(1568.00); la2okt=round(1760.00);
si2okt=round(1975.00);

diez=round((fa-mi));
pause=0;
d=6000;                 d1_2=round(d/2);        d3_2=round(3*d/2);
d1_4=round(d/4);        d1_8=round(d/8);

chiziknota:music = (sol,mi,sol,mi,la,sol,fa,doo,doo,doo,re,mi,fa,fa,fa,
                   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
chizikdlit:music = (d,d,d,d,d,d,2*d,d,d,d,d1_2,d1_2,d,d,2*d,
                   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
sluzhnota:music = (fa,fa,sol,fa,mi,re,re,doo+diez,doo+diez,re,mi,sol,sol,la,
                  sol,fa,mi,mi,re,re,mi,fa,la,la,la,la,la+diez,doo2okt,
                  re2okt,fa,la+diez,re2okt,doo2okt,pause,la,sol,fa,mi,re,la);
sluzhdlit:music = (d,d,d,d,d,d,d,d,d,d,2*d,d,d,d,d,d,d,d,
                  d,d,d,2*d,d,d,d,d,d,d,d,d,d,d,2*d,3*d,d,
                  d,d,d,d,d);
dalekonota:music = (re,mi,fa+diez,fa+diez,fa+diez,fa+diez,re2okt,fa+diez,
                   fa+diez,fa+diez,fa+diez,sol,mi,pause,doo+diez,re,mi,mi,
                   mi,mi,sol,sol,fa+diez,mi,re,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
dalekodlit:music = (d1_2,d1_2,d,d,d,d,d3_2,d1_2,d,d,d1_2,d1_2,2*d,d,
                    d1_2,d1_2,d,d,d,d,d,d,d,d,3*d,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);

{---------------------------------------------}
procedure play(nota,dlit:music; n:byte);
var i:byte;
begin
for i:=1 to n do
begin
     sound(nota[i]);
     delay(dlit[i]);
     nosound;
end
end;
{---------------------------------------------}
begin
repeat
      clrscr;
      writeln('Выберите мелодию:');
      writeln;
      writeln('1 - Чижик-пыжик');
      writeln('2 - Наша служба и опасна и трудна...');
      writeln('3 - Прекрасное далеко');
      writeln;
      writeln('4 - Выход');
      writeln;
      read(answer);
      case answer of
           1: play(chiziknota,chizikdlit,15);
           2: play(sluzhnota,sluzhdlit,40);
           3: play(dalekonota,dalekodlit,40);
      end;
until answer=4;
end.