Вот что есть:
program lab;
uses crt,graph;
var gd,gm:integer;
x1,x2,x3,y1,y2,y3,i:integer;
begin
gd:=VGA;
gm:=VGAhi;
initgraph (gd,gm,'C:\tp7\tp7\BGI');
if graphresult = grOk then
begin
x1:=320;
x2:=520;
x3:=120;
y1:=10;
y2:=210;
y3:=410;
for i:=1 to 5 do
begin
line (x1,y1,x2,y2);
line (x3,y2,x1,y1);
line (x2,y2,x1,y3);
line (x1,y3,x3,y2);
y1:=y1+20;
y3:=y3-20;
x3:=x3+20;
x2:=x2-20;
SetColor(i);
SetFillStyle(2,i);
end;
readln;
closegraph;
end;
end.
подскажите как залить эти ромбы.