Составьте программу которая рисует прямоугольник синего цвета с кординатами противоположных вершин (140,80) и (320,200). Залейте прямоугольник вертикальной штриховой фиолетового цвета, (Pascal ABC)

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.