Question

Напишите пожалуйста программу для Паскаля
для этого рисунка! Очень нужно, пожалуйста!!

Answer 1

uses System.Drawing, System.Collections.Generic, GraphABC;var a: List<Point> := new List<Point>();begin  a.Add(new Point(144, 2));  a.Add(new Point(1, 55));  a.Add(new Point(273, 55));  Pen.Color := clRed;  Pen.Width := 3;  Brush.Color := clGreen;  GraphABC.FillPolygon(a.ToArray());  GraphABC.DrawPolygon(a.ToArray());  Brush.Color := clLightGreen;  GraphABC.DrawRectangle(1, 55, 276, 226);  GraphABC.FillRectangle(1, 55, 276, 226);  Brush.Color := clYellow;  DrawCircle(144, 30, 20);  FillCircle(144, 30, 20);    GraphABC.FillRectangle(150, 100, 213, 175);  GraphABC.FillRectangle(37, 100, 100, 175);    GraphABC.DrawRectangle(150, 100, 183, 125);  GraphABC.DrawRectangle(183, 100, 213, 175);  GraphABC.DrawRectangle(150, 100, 183, 175);    GraphABC.DrawRectangle(37, 100, 70, 125);  GraphABC.DrawRectangle(70, 100, 100, 175);  GraphABC.DrawRectangle(37, 100, 70, 175);end.