program hudba;
uses
  Crt;
Var
  Znak : Char;
begin
  Repeat
    Znak := ReadKey;
    Case Znak of
      'c' : Begin
              Sound(20);
              Delay(1000);
            End;
      'd' : Begin
              Sound(40);
              Delay(1000);
            End;
      'e' : Begin
              Sound(80);
              Delay(1000);
            End;
      'f' : Begin
              Sound(160);
              Delay(1000);
            End;
      'g' : Begin
              Sound(320);
              Delay(1000);
            End;
      'a' : Begin
              Sound(640);
              Delay(1000);
            End;
      'h' : Begin
              Sound(1280);
              Delay(1000);
            End;
    End;
  NoSound;
  Until Znak = 'k';
end.