Необходимо создать программу, рисующую круг и закрашивающую его в тот цвет который носит клавиша от 1 до 9 на - Pascal ABC

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

PROGRAM L2;
 
USES
  GRAPHABC;
  
VAR
  COLOR: SYSTEM.DRAWING.COLOR;
 
PROCEDURE KEYDOWN(KEY: INTEGER);
BEGIN
  CASE KEY OF
    VK_NUMPAD1: COLOR := CLRED;
    VK_NUMPAD2: COLOR := CLWHITE;
    VK_NUMPAD3: COLOR := CLBROWN;
    VK_NUMPAD4: COLOR := CLMAGENTA;
    VK_NUMPAD5: COLOR := CLBLACK;
    VK_NUMPAD6: COLOR := CLORANGE;
    VK_NUMPAD7: COLOR := CLBLUE;
    VK_NUMPAD8: COLOR := CLYELLOW;
    VK_NUMPAD9: COLOR := CLGREEN;
  END;
END;
  
BEGIN 
  SETWINDOWSIZE(1280, 720);
  CENTERWINDOW;
  SETBRUSHCOLOR(COLOR);
  CIRCLE(1280 DIV 2, 720 DIV 2, 100);  
  OnKeyDown := KEYDOWN;
END.

Решение задачи: «Необходимо создать программу, рисующую круг и закрашивающую его в тот цвет который носит клавиша от 1 до 9 на»

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

USES GRAPHABC;
PROCEDURE KEYDOWN(KEY: INTEGER);
BEGIN
  CASE KEY OF
    VK_NUMPAD1: BRUSH.COLOR := CLRED;
    VK_NUMPAD2: BRUSH.COLOR := CLWHITE;
    VK_NUMPAD3: BRUSH.COLOR := CLBROWN;
    VK_NUMPAD4: BRUSH.COLOR := CLMAGENTA;
    VK_NUMPAD5: BRUSH.COLOR := CLBLACK;
    VK_NUMPAD6: BRUSH.COLOR := CLORANGE;
    VK_NUMPAD7: BRUSH.COLOR := CLBLUE;
    VK_NUMPAD8: BRUSH.COLOR := CLYELLOW;
    VK_NUMPAD9: BRUSH.COLOR := CLGREEN;
  END;
CIRCLE(1280 DIV 2, 720 DIV 2, 100);  
END;
BEGIN 
  SETWINDOWSIZE(1280, 720);
  CENTERWINDOW;
  OnKeyDown := KEYDOWN;
END.

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

Объявлена процедура KEYDOWN, которая реагирует на нажатие клавиш от VK_NUMPAD1 до VK_NUMPAD9 и изменяет цвет кисти на соответствующий цвет клавиши.
В основной части программы открывается окно размером 1280x720 пикселей.
Устанавливается обработчик события KEYDOWN на процедуру KEYDOWN.
Вызывается функция CIRCLE для рисования круга с центром в точке (1280/2, 720/2) и радиусом 100.