Текст програми для визначення коду клавіші клавіатури

program klavishi_i_ESC;

{Програма дає можливість одержати коди клавіш клавіатури. Але

не всі клавіші мають код - наприклад, Shift, Ctrl тощо. Деякі

клавіші мають подвійний код, який називається розширеним кодом:

0 І ще якесь число - наприклад, клавіші PgDn, Del, End тощо.}

uses crt;

Var vidp:char;

begin

repeat

vidp:=readkey; {при використанні функції ReadKey

зчитаний символ на екран не відображається}

write(vidp);

writeln(' - ',ord(vidp));

until vidp=#27; {код ESC}

readln;

end.