uses Clavier;
var touche: char;
begin
  Write ('Pressez une touche');
  repeat
  until TouchPresse;
  touche := LitTouche;
  Writeln;
  Writeln ('Vous avez tapé la touche de code ASCII ',ord(touche),' ce qui donne : ',touche);
end.