PROGRAM CBMD;
USES crt;
VAR ch:CHAR;
CONST a=400; b=800; c=1600; d=200;
PROCEDURE tn(c:WORD;t:WORD);
BEGIN sound(c);delay(t);nosound END;
BEGIN clrscr;
writeln('Nhat Anh''s Production!');
writeln('--------------------------');
writeln('Ban co muon nghe ban nhac co be mua dong khong (y/n)? :');
ch:=readkey;
IF ch='y' THEN
BEGIN
REPEAT
tn(330,a);tn(440,a);tn(494,a);tn(523,b);tn(494,a); tn(523,a);tn(587,b);
tn(392,b);tn(659,a);tn(698,a);tn(659,a);tn(587,a); tn(523,a);tn(330,a);
tn(440,a);tn(494,a);tn(523,b);tn(494,a);tn(523,a); tn(587,b);tn(392,b);
tn(659,c);
tn(330,a);tn(440,a);tn(494,a);tn(523,b);tn(494,a); tn(523,a);tn(587,b);
tn(392,b);tn(784,b);tn(659,a);tn(698,a);tn(659,a); tn(587,a);tn(523,a);tn(330,a);
tn(440,a);tn(494,a);tn(523,b);tn(494,a);tn(440,a); tn(494,b);tn(392,b);tn(440,c);
tn(000,a);tn(440,a);tn(494,a);tn(523,b);tn(494,a); tn(440,a);tn(392,b);
tn(392,a);tn(440,a);tn(262,d);tn(262,d);tn(000,d); tn(392,a);tn(440,a);tn(262,a);tn(262,a);tn(000,d);
tn(440,d);tn(440,d);tn(494,d);tn(523,b);tn(494,a); tn(440,a);tn(392,b);
tn(392,a);tn(440,a);tn(440,a);tn(392,a);tn(349,a); tn(392,d);tn(392,d);
tn(440,a);tn(494,a);tn(523,b);tn(494,a);tn(440,a); tn(392,b);
tn(392,a);tn(440,a);tn(262,d);tn(262,d);tn(000,d); tn(392,a);tn(440,a);tn(262,a);tn(262,a);tn(000,d);
tn(440,d);tn(440,d);tn(494,d);tn(523,b);tn(494,a); tn(440,a);tn(392,b);tn(392,a);tn(440,b);tn(494,a); tn(523,a);
tn(494,c);tn(000,d);
tn(523,b);tn(659,a);tn(659,a);tn(494,a);tn(440,a); tn(392,b);tn(392,a);tn(440,b);tn(392,a);
tn(349,a);tn(330,a);tn(349,a);tn(392,b);tn(440,d); tn(494,d);tn(523,b);tn(523,a);tn(659,a);
tn(494,a);tn(440,a);tn(392,b);tn(392,d);tn(440,a); tn(440,d);tn(494,a);tn(523,a);tn(587,c);tn(000,d);
tn(659,b);tn(392,a);tn(659,a);tn(587,b);tn(784,a); tn(587,a);tn(523,a);tn(523,a);tn(330,a);tn(523,a);
tn(494,b);tn(440,a);tn(392,a);tn(440,b);tn(494,a); tn(523,a);tn(392,b);tn(523,a);tn(523,a);tn(659,a); tn(659,a);
tn(587,a);tn(523,a);tn(587,a);tn(440,a);tn(392,b); tn(000,d);
tn(659,b);tn(392,a);tn(659,a);tn(587,b);tn(784,a); tn(587,a);tn(523,a);tn(523,a);tn(330,a);tn(523,a);
tn(494,b);tn(440,a);tn(392,a);tn(440,b);tn(494,a); tn(523,a);tn(587,b);tn(523,a);tn(494,a);tn(523,a);
tn(494,a);tn(440,c);
writeln('Nghe nhac tiep khong (c/k)?: ');writeln;
ch:=readkey;
UNTIL ch='k'
END
ELSE
exit
END.
