Viết chương trình để làm ra một bàn phím giả thanh của đàn piano với những quy định D = đồ R=rê M=mi F=pha S=son l=la Si=si ( đề thi học sinh giỏi của Huyện Xuân Hồng,Tỉnh Nam Định năm 2019)

mình ngu nhạc :< các số mình viết ở đây đều từ trong sách tin lớp 11 :<< nếu có sai sót gì thì bạn thông cảm nha

uses crt;

var not: char;

begin

clrscr;

writeln('moi ban choi dan theo quy dinh D=DO/E=RE/M=MI/F=PHA/S=SON/L=LA/SI=SI an k de ngung choi');

repeat

not:=readkey;

case not of

'D' : BEGIN nosound ; sound(262); end;

'R': BEGIN nosound ; sound(294); end;

'M': BEGIN nosound; sound(330); end;

'F' : BEGIN nosound ; sound(349); end;

'S' :BEGIN nosound; sound(494); end;

'L':BEGIN nosound; sound(523); end;

'SI':BEGIN nosound; sound(587); end;

end

until (Upcase(not)='k');

nosound;

end.