Đánh piano.

Uses crt;
Var n : Char;
Begin
clrscr;
Writeln('a-do, s-re, d-mi, f-fa, g-son, h-la, j-xi, k-do>');
Writeln('p-lang, 0-ngat chuong trinh');
Writeln('Moi ban choi ban nhac ma ban yeu thich');
Repeat
n:=READKEY;
If n='a' Then
Begin
Nosound;
Delay(10);
Sound(523);
End;
If n='s' Then
Begin
Nosound;
Delay(10);
Sound(587);
End;
If n='d' Then
Begin
Nosound;
Delay(10);
Sound(659);
End;
If n='f' Then
Begin
Nosound;
Delay(10);
Sound(698);
End;
If n='g' Then
Begin
Nosound;
Delay(10);
Sound(784);
End;
If n='h' Then
Begin
Nosound;
Delay(10);
Sound(880);
End;
If n='j' Then
Begin
Nosound;
Delay(10);
Sound(988);
End;
If n='k' Then
Begin
Nosound;
Delay(10);
Sound(1047);
End;
If n='p' Then nosound;
Until n='0';
Nosound;
End.