program koncentricnikrugovi;
uses crt,graph;
var driver,mode,n:integer;
    xc,yc,d,r:integer;
begin
  ClrScr;
  write(' Unesi koordinate i poluprecnik kruznice u pixelima ');
  readln(xc,yc,r);
  write(' Unesi duzinu familije i razliku poluprecnika:');
  readln(n,d);
  driver:=detect;
  InitGraph(driver,mode,'');
  setbkcolor(black);
  while (n>0) and (xc-r>0) and (xc+r<GetMaxX) and (yc-r>0) and (yc+r<GetMaxY) do
    begin
      setcolor(blue)
      circle(xc,yc,r);
      r:=r+d;
      n:=n-1;
    end;
  readln;
  closegraph
end.