составьте программу,выводящую на экран изображение на желтом фоне экране прямоугольник зеленого цвета,залитый красной заливкой редкую точку.

uses  GraphABC;  var  a: array of point := (new point(600, 400), new point(100, 0), new point(70, 300));  begin  SetBrushColor(clYellow);  FillRect(0, 0, WindowWidth, WindowHeight);  SetBrushHatch(HatchStyle.Percent05);  SetBrushStyle(BrushStyleType.bsHatch);  SetPenColor(clGreen);  SetPenWidth(3);  SetBrushColor(clRed);  FillPolygon(a);  DrawPolygon(a);end.