Программа написана на языке Паскаль. Позволяет организовать простейшее управление : выход или поторение выполнения программы с помощью нажатия на нужную клавишу.

uses crt; var cod_ASCII:byte; {byte - переменная целого типа от 0 до 255, занимает 8 бит} begin clrscr; repeat writeln ('Нажмите клавишу, по которой хотите осуществить выход'); cod_ASCII:=ord(readkey); {readkey - функция символьного типа - принимает значение введенного символа; ord - функция возвращающая порядковый номер своего аргумента} writeln ('Символ ', chr(cod_ASCII),' код ASCII:', cod_ASCII); {chr - функция, которая по коду возвращает символ, то есть становится равной символу, код которого является её аргументом} writeln('Выход - повторите эту клавишу, продолжение - другая '); until readkey=chr(cod_ASCII); {Выход по заданной клаише, например Esc: код клавишы Esc - 13; для выхода по Esc закомментируйте строчку перед данным комментарием, раскомментируйте (снимите фигурные скобки) следующую строчку} {until readkey=#13;} end.

---