Задание №1

Написать программу, которая определяет код нажатой клавиши. Программа завершает работу при нажатии клавиши <Esc>.

program laba13;

uses crt;

var ch:char;

begin;

clrscr;

repeat

ch:=readkey;

if ch=chr(0) then begin write('Служебная-');

ch:=readkey;

end;

writeln(ord(ch));

until ord(ch)=27;

end.

ЗАДАНИЕ №2.

Написать программу, которая выводит список задач (пунктов меню), выделяя название первой задачи цветом. При нажатии клавиши «стрелка вниз» выделяется следующий пункт меню, при нажатии клавиши «стрелка вверх» - предыдущий. Нажатие клавиши <Esc> активизирует процедуру, связанную с выбранным пунктом (в данном случае – процедуру-заглушку).