Напишите как решить ? которая изобразит на экране монитора прямоугольник,разделенный диагоналями на 4 закрашенных в разные цвета треугольника.толщину линии установите в 4 пикселя.

Uses
  GraphABC;

begin
  SetWindowSize(800, 600);
  SetPenWidth(4);
  SetPenColor(clMagenta);
  DrawRectangle(100, 100, 500, 500);
  Line(100, 100, 500, 500);
  Line(100, 500, 500, 100);
  SetPenColor(clRed);
  FloodFill(300, 200, clRed);
  FloodFill(400, 300, clGreen);
  FloodFill(400, 450, clBlue);
  FloodFill(150, 300, clYellow);
end.