Нарисовать в разных местах экрана сектор эллипса, закрашенный треугольник, ромб, прямоугольник - PascalABC.NET

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

а) Нарисовать в разных местах экрана сектор эллипса, закрашенный треугольник, ромб, прямоугольник.

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

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

uses
  graphABC;
 
var
  a: array of Point := (new Point(300, 110), new Point(400, 155), new Point(300, 200), new Point(300, 110));
  a2: array of Point := (new Point(350, 350), new Point(300, 380), new Point(350, 400), new Point(400, 380), new Point(350, 350));
 
begin
  
  Ellipse(10, 50, 200, 150);
  Polyline(a);
  FloodFill(320, 150, clBlue);
  
  Rectangle(1, 1, 500, 45);
  FloodFill(2, 2, clRed);
  Polyline(a2);
  FloodFill(375, 390, clBlack);
  
end.

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

Объявлены две массивы точек: a и a2.
Вызван метод Ellipse для рисования эллипса с центром в точке (10,50) и размерами 200 на 150.
Вызван метод Polyline для рисования линии из точек массива a.
Вызван метод FloodFill с параметрами (320,150,clBlue), который закрашивает указанную точку на экране синим цветом, а затем метод FloodFill с параметрами (2,2,clRed), который закрашивает указанную точку на экране красным цветом.
Вызван метод Rectangle для рисования прямоугольника размерами 500 на 45 с левым верхним углом в точке (1,1).
Вызван метод Polyline для рисования линии из точек массива a2.
Вызван метод FloodFill с параметрами (375,390,clBlack), который закрашивает указанную точку на экране черным цветом.