program ReadNoEcho1(keyboard, output);
var
  Character:            char;
  keyboard:             text;
begin
repeat
  read(keyboard, Character);
  write(output,'You pressed ');
  if Character>=chr(32) then                             {printable character}
    write(output,'"',Character,'", which is ');
  writeln(output,'CHR(',ord(Character):1,').');
until false;                                 {press [STOP] to end the program}
end.
