МР
Марина Рубцова
Помогите пожалуйста, как закрасить пирамиду внутри
program piramida;
uses crt, graph ;
var gd,gm:integer;
begin
clrscr;
detectgraph(gd,gm);
gd:=detect;
initgraph(gd,gm,'tp/7');setcolor(1);
setlinestyle(0,0,1);
line(220,360,250,310);
line(220,360,320,360);
line(320,360,350,310);
line(250,310,350,310);
line(220,360,330,240);
line(250,310,330,240);
line(350,310,330,240);
line(320,360,330,240);
line(320,360,250,310 );
line(280,330,330,240);
setfillstyle(3, red);
floodfill(100,100, red);
readln;
end.