Нарисовать пирамиду — Pascal(Паскаль)

uses graph;
var xc,yc,dx,dy,c,n,i,j:integer;
begin
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=0;{верх пирамидки}
n:=round((getmaxY-2*yc)/60);{количество колец}
dx:=10;dy:=60;{шаг приращения по диаметру и количеству}
for i:=0 to n-1 do
 begin
  dx:=dx+i*10;
  c:=i+2; {цвет}
  setfillstyle(1,c);
  bar(xc-dx,yc+dy*i,xc+dx,yc+dy*(i+1));
 end;
readln
end.