program keycodes; uses crt; var c: char; begin ClrScr; repeat WriteLn('Please, press a key (press s or S to stop)'); c := ReadKey; Writeln(' You pressed ', c, ', whose ASCII value is ', Ord(C), '.'); until (c='S') or (c='s'); end.