Program Dom;
uses Graphabc;
var
P, Z: array of point;
begin
SetWindowWidth(800);
SetWindowHeight(600);
SetPenWidth(3);
SetLength(P, 4);
SetLength(Z, 3);
Rectangle(200, 300, 600,600);
SetBrushColor(clSlateGray);
FillRect(200, 300,600,600);
SetBrushColor(clAquamarine);
FillRect(300, 400,500,500);
rectangle(300,400,500,500);
Line(400,400,400,500);
Line(300,450,500,450);
Line(200,300,400,150);
Line(400,150,600,300);
SetBrushColor(clGoldenrod);
z[0].X := 200; z[0].Y := 300;
z[1].X := 400; z[1].Y := 150;
z[2].X := 600; z[2].Y :=300;
Polygon(Z);
SetBrushColor(clCornflowerBlue);
Circle(400,225, 40);
SetBrushColor(clBrown);
p[0].X := 480; p[0].Y := 210;
p[1].X := 480; p[1].Y := 160;
p[2].X := 520; p[2].Y := 160;
p[3].X := 520; p[3].Y := 240;
Polygon(P);
end.