примерно так
uses graphabc;
const k=47;
var b: boolean=true;
begin
moveto(100+k*4,10+k*4);
for var i:=8 downto 0 do
begin
for var j:=0 to 4-abs(i-4)do
begin
var x:=min(i,4)-j;
var y:=i-x;
if b then setpencolor(clsilver) else setpencolor(clblue);
lineto(100+x*k,10+y*k);
b:=not b;
end;
end;
end.