Descubra o Código ASC da Tecla Pressionada

Joao Paulo Schwarz Schuler

uses dos,crt;

var C:char;
begin
writeln('Tecle ESC para sair');
repeat
C:=readkey;
writeln(ord(C));
if keypressed then begin
                   C:=readkey;
                   writeln(ord(C));
                   end;
until ord(C)=27;
end.