program koltsa;
uses graph, crt;
var i,d,m,x,y,r:integer;
  begin
   d:=detect;initGraph(d,m,'');
   x:=20;
   y:=10;
   r:=5;
  setcolor(5);
 for i:=1 to 5 do begin
circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r+10;
 delay(200);
end;
  setcolor(3);
 for i:=1 to 5 do begin
circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r-10;
 delay(100);
end;
  setcolor(7);
 for i:=1 to 5 do begin
circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r+10;
 delay(100);
end;
setcolor(12);
 for i:=1 to 5 do begin
circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r-10;
delay(100);
end;
setcolor(9);
for i:=1 to 5 do begin
 circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r+10;
 delay(1000);
end;
setcolor(10);
for i:=1 to 5 do begin
 circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r-10;
 delay(100);
end;
setcolor(14);
for i:=1 to 5 do begin
 circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r+10;
 delay(100);
end;
setcolor(13);
for i:=1 to 5 do begin
 circle(x,y,r);
  x:=x+10;
  y:=y+10;
  r:=r-10;
 delay(100);
end;
readln;
end.