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.