Даны три прямоугольника, каждого из которых известны координаты вершин одной диагонали: 1) 20, 20 и 80, 200;2) 200, 97 и 500, 156;3) 300, 120 и 400, 420. Составьте программу, которая рисует эти прямоугольники красным, жёлтым и зелёным цветами, соответственно.ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program drawRectangles;

uses graph;

const
RED = 12;
YELLOW = 14;
GREEN = 10;

procedure drawRectangle(x1, y1, x2, y2: integer; color: integer);
begin
SetColor(color);
Rectangle(x1, y1, x2, y2);
end;

begin
InitGraph;

// Draw the first rectangle in red
drawRectangle(20, 20, 80, 200, RED);

// Draw the second rectangle in yellow
drawRectangle(200, 97, 500, 156, YELLOW);

// Draw the third rectangle in green
drawRectangle(300, 120, 400, 420, GREEN);

ReadLn;
CloseGraph;
end.