Я нарисовал прямоугольник и разбил его на части, теперь надо закрасить эти части(хотя бы одну для примера).
uses crt,graph;
var
a,b:integer;
procedure pryam;
begin
rectangle(170,90,470,390);
line(170,90,470,390);
line(170,390,470,90);
line(170,240,470,240);
line(170,240,320,90);
line(320,90,470,240);
line(320,390,170,240);
line(320,390,470,240);
setfillstyle(2,6);
floodfill(175,100,0); //<-- вот тут не получается
end;
begin
a:=detect;
initgraph(a,b,'');
pryam;
readkey
end.
Помогите пожалуйста