program KeyCodes;
uses crt;
var c:Char;
begin
  c:=Readkey;
  Write(Ord(c),'-',c,' ');
  c:=Readkey;
  WriteLn(Ord(c),'-',c);
  Write('Press Enter to go back ...');
  ReadLn;
  end.