PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

PROGRAM keyboard;

USES Crt;

VAR x:char;

BEGIN

REPEAT

x:=readkey;

sound(15*ord(x));

delay(100);

nosound;

UNTIL ord(x)=27;

END.

---