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.