Разработать программу с использованиеграфического режима на паскале abc.Воплотить

Uses
  GraphABC;

var
  i: integer;

begin
  GraphABC.Brush.Color := Color.DarkBlue;
  GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);
  for i := 1 to 1000 do
    GraphABC.SetPixel(Random(WindowWidth), Random(WindowHeight), clWhite);
  System.Threading.Thread.Sleep(500);
  GraphABC.FillRect(0, 0, WindowWidth, WindowHeight);
end.