USES GRAPHABC;
VAR X,Y,r:INTEGER;
BEGIN
  SETWINDOWSIZE(600,100);
  x:=50; y:=50; r:=50;
    x:=50; y:=50; r:=10;
  while x<=550 do
    begin
    circle(x+50,y+50, r+50);
    circle(x+50,y+50,r+10);
    x:=x+120; 
  end;
  end.