uses

  Crt,

  Glob;

begin

  repeat

    writeln(ord(readkey));

  until Forever;

end.