Нарисуйте и разукрасьте домик с Pascal через модуль GraphABC.

Program Dom;uses Graphabc;  var  P, Z: array of point;  beginSetWindowWidth(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.