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

Точно уверен

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.