Какие коды у клавиш Enter и стрелок управления курсором? - Turbo Pascal

Формулировка задачи:

Какие коды у стрелок и "Enter" на клавиатуре?

Решение задачи: «Какие коды у клавиш Enter и стрелок управления курсором?»

Листинг программы

Uses Crt;
Var
  Ch : Char;
Begin
  Repeat
    Ch:=ReadKey;
    If Ch=#0 then
    Begin
      Write('Нажата клавиша с расширенным кодом. ');
      Ch:=ReadKey;
    End;  
    Writeln(Ord(Ch));
  Until Ch=#27; {выход по нажатию на ESC}
End.

Объяснение кода листинга программы

В начале объявляются необходимые переменные: Ch - символ, который считывается с клавиатуры, и Crt - модуль, предоставляемый Turbo Pascal для работы с стандартным вводом/выводом.
Затем идет цикл Repeat-Until, который будет выполняться до тех пор, пока не будет нажата клавиша с расширенным кодом (в данном случае #0).
Внутри цикла считывается символ, нажатый пользователем, и сохраняется в переменной Ch.
Затем проверяется, равен ли считанный символ #0. Если да, то это означает, что пользователь нажал клавишу ESC, и программа завершается.
Если символ не равен #0, то выводится его код (Ord(Ch)), используя функцию Writeln.
После вывода кода клавиши, цикл повторяется, ожидая следующего нажатия клавиши.