program hudba2;
uses
Crt;
Var
Znak : Char;
begin
ClrScr; {smaze obrazovku}
Window(1, 1, 80, 25); {definuje textove okno - zde je maximalni}
Repeat
Znak := ReadKey;
Case Znak of
'c' : Begin
TextBackGround(0);
ClrScr;
Sound(20);
Delay(1000);
End;
'd' : Begin
TextBackGround(1);
ClrScr;
Sound(40);
Delay(1000);
End;
'e' : Begin
TextBackGround(2);
ClrScr;
Sound(80);
Delay(1000);
End;
'f' : Begin
TextBackGround(3);
ClrScr;
Sound(160);
Delay(1000);
End;
'g' : Begin
TextBackGround(4);
ClrScr;
Sound(320);
Delay(1000);
End;
'a' : Begin
TextBackGround(5);
ClrScr;
Sound(640);
Delay(1000);
End;
'h' : Begin
TextBackGround(6);
ClrScr;
Sound(1280);
Delay(1000);
End;
End;
NoSound;
Until Znak = 'k';
end.