Правила форума
ReadKey.PASLanguage:
Русский
English
{ReadKey.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the ReadKey function.}
uses WinCrt;
var
C: Char;
begin
Writeln('Please press a key');
C := Readkey;
Writeln(' You pressed ', C, ', whose ASCII value is ', Ord(C), '.');
end.
::
::
::
