Написать программу которая рисует три треугольника разных цветов

Точно  уверен
uses GraphABC;
begin
  SetWindowSize(400, 400);
  SetWindowTitle('Синий прямоугольник с фиолетовой штриховкой');
  SetBrushStyle(bsHatch);
  SetBrushColor(clMagenta);
  SetBrushHatch(bhVertical);
  FillRectangle(140,80,320,200);
  SetPenColor(clBlue);
  DrawRectangle(140,80,320,200);
end.