Составить программу которая рисует прямоугольник с разноцветными сторонами - Turbo Pascal

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

Составить программу которая рисует прямоугольник с разноцветными сторонами. помогите пожалуйста!

Решение задачи: «Составить программу которая рисует прямоугольник с разноцветными сторонами»

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

  MoveTo(100,100);
  SetColor( 9); LineRel( 200,0);
  SetColor(10); LineRel(0, 150);
  SetColor(11); LineRel(-200,0);
  SetColor(12); LineRel(0,-150);

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

В данном коде происходит рисование прямоугольника с помощью линий, которые соединяют последовательно четыре точки.

MoveTo(100,100); — устанавливает начальную точку для рисования в координатах (100,100).
SetColor( 9); — устанавливает цвет линии на 9 (синий).
LineRel( 200,0); — рисует линию длиной 200 вправо от текущей позиции.
SetColor(10); — устанавливает цвет линии на 10 (зелёный).
LineRel(0, 150); — рисует линию длиной 150 вниз от текущей позиции.
SetColor(11); — устанавливает цвет линии на 11 (красный).
LineRel(-200,0); — рисует линию длиной 200 влево от текущей позиции.
SetColor(12); — устанавливает цвет линии на 12 (жёлтый).
LineRel(0,-150); — рисует линию длиной 150 вверх от текущей позиции.
В данном коде отсутствуют команды для рисования прямоугольника, поскольку он состоит из четырёх прямоугольников, каждый из которых нарисован отдельной линией. Для правильного выполнения задачи необходимо установить соответствующие цвета для линий и корректно изменить координаты начальной точки для каждой линии.