Задача 16.1. Наступний фрагмент дозволяє розпiзнати, якого типу натиснута клавiша.

Program Kod;
uses Crt; {для Turbo Pascal V 3.0 цей рядок непотрiбен}
Var Ch: char;
begin
    Ch:=ReadKey; {Read (kbd,Ch)-для Turbo Pascal V 3.0}
 if Ch=#0 then
 begin
        Ch:=ReadKey; {Read (kbd,Ch) -для Turbo Pascal V 3.0}
 Write('Наступна керуюча клавiша ');
 WriteLn('з розширеним кодом ',byte(Ch));
 end
 else
 begin
 Write('Натиснута символьна клавiша ');
 WriteLn('з простим кодом ', byte(Ch));
 end;
end.  

Завдання 16.1. Скласти програму для виведення на екран повідомлення про те, яка клавіша управління курсором натиснута.