readkey.pas

 {ReadKey.PAS}
 
 { Пример программы для функции ReadKey }
 
 Uses WinCrt;
 
 Var C : Char;
 
 Begin
  WriteLn('Нажмите любую клавишу:');
  C:=Readkey;
  WriteLn('Вы нажали ', C, ', с кодом ASCII равным ', Ord(C), '.');
 End.