Честно не очень знаю как тебе помочь D: но тебе никто не отвечает и...
в общем если это Pascal в начале точно не помню как
program названиепрограммы;
uses GraphABC;
begin;
SetBrushColor (blue);
Rectangle (140,80,320,200);
не знаю можно ли как-то автоматическую штриховку сделать, поищи в интернете просто операторы, если нету то придётся вручную через Line (x1,y1,x2,y2);
прости, это всё чем я могу помочь