Кольца - Pascal ABC

uses graphABC;
const cv:array[1..5] of integer=(clRed,clBlue,clGreen,clLime,clPurple);
var c,n,i,r,dr:integer;
begin
setwindowsize(400,400);
c:=200;
r:=200;
dr:=20;
for i:=1 to 10 do
 begin
  if odd(i) then
   begin
    setpencolor(cv[i div 2+1]);
    setbrushcolor(cv[i div 2+1]);
   end
  else
   begin
    setpencolor(clWhite);
    setbrushcolor(clWhite);
   end;
  circle(c,c,r);
  r:=r-dr;
 end;
end.