Написать программу, которая выводит на экран изображение заданного графического объекта - Turbo Pascal

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

Написать программу, которая выводит на экран изображение заданного графического объекта (с соблюдением заданной цветовой гаммы). Спасибо.

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

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

uses graph;
var
Gd, Gm: Integer;
 
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
 
SetBkColor(15);
 
SetLineStyle(0,0,3);
 
SetColor(1);
Line(120, 320, 470, 320);
Line(470, 320, 380, 400);
Line(380, 400, 120, 400);
Line(120, 400, 120, 320);
 
SetColor(12);
Line(303, 20, 303, 320);
SetColor(8);
Line(300, 20, 300, 320);
 
Line(490, 50, 160, 50);
Line(160, 50, 160, 260);
Line(160,260, 450, 260);
Line(450,260, 450, 50);
 
Readln;
CloseGraph;
end.

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

Подключается библиотека graph.
Объявляются две переменные типа Integer: Gd и Gm.
Вызывается функция Detect, результаты присваиваются переменным Gd и Gm.
Выполняется инициализация графа с помощью функций InitGraph и SetBkColor.
Проверяется результат выполнения функции GraphResult, если он не равен grOk, то программа завершается с кодом 1.
Устанавливается стиль линии с помощью функции SetLineStyle.
Выводятся три линии с помощью функции Line.
Устанавливается цвет линии с помощью функции SetColor.
Выводятся четыре точки с помощью функции Line.
Устанавливается цвет линии с помощью функции SetColor.
Выводится линия с помощью функции Line.
Устанавливается цвет линии с помощью функции SetColor.
Выводится линия с помощью функции Line.
Устанавливается цвет линии с помощью функции SetColor.
Выводится линия с помощью функции Line.
Закрывается графический редактор с помощью функции CloseGraph.
Программа завершается.