Как нарисовать polygon - Free Pascal

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

У меня есть массив с 8 елеметами 250,236, 250,204,270,204,270,223. Как с ними нарисовать polygon

Решение задачи: «Как нарисовать polygon»

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

uses graph;
const coord:array [0..4] of pointType=
((x:250;y:236),
 (x:250;y:204),
 (x:270;y:204),
 (x:270;y:223),
 (x:250;y:236));
 
var Driver, Mode : Integer;
 
Begin
  Driver := Detect;
  InitGraph(Driver,Mode,'');
  DrawPoly(5,coord);
  ReadLn;
  CloseGraph;
end.

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

uses graph; — Импортируем модуль graph для работы с графикой
const coord:array [0..4] of pointType=((x:250;y:236),(x:250;y:204),(x:270;y:204),(x:270;y:223),(x:250;y:236)); — Задаем координаты вершин многоугольника
var Driver, Mode : Integer; — Объявляем переменные для выбора драйвера и режима отображения графики
Driver := Detect; — Определяем драйвер графики с помощью функции Detect
InitGraph(Driver,Mode,''); — Инициализируем графический движок с помощью функции InitGraph
DrawPoly(5,coord); — Рисуем многоугольник с помощью функции DrawPoly, где 5 - количество вершин, а coord - массив координат вершин
ReadLn; — Считываем строку с помощью функции ReadLn
CloseGraph; — Закрываем графический движок с помощью функции CloseGraph
end. — Конец программы