program planeti;
uses graph,crt;
var
 d,m,x,y,xc,yc,x1,y1,r1,r2,r3:integer;
 Ch:char;
begin
 xc:=320;
 yc:=240;
 r1:=145;
 r2:=45;
 r3:=10;
 initgraph(d,m,'');
 setfillstyle(1,14);
 circle(xc,yc,r1);
 circle(xc,yc,r2);
 floodfill(320,240,15);
 repeat
  for x:=xc-r1 to xc+r1 do
   begin
    y:=round(sqrt(sqr(r1)-sqr(xc-x)));;
    Y:=yc-y;
    setfillstyle(1,9);
    fillellipse(x,y,r3,r3);
    delay(50);
    setcolor(0);
    setfillstyle(1,0);
    fillellipse(x,y,r3,r3);
    setcolor(15);
    circle(xc,yc,r1);
    if keypressed then
     begin
      Ch:=ReadKey;
      if Ch=#27 then 
       begin
         CloseGraph;
         halt(0);
       end;
     end;
   end;
  for x:=xc+r1 downto xc-r1 do
   begin
    y:=round(sqrt(sqr(r1)-sqr(xc-x)));;
    Y:=yc+y;
    setfillstyle(1,9);
    fillellipse(x,y,r3,r3);
    delay(50);
    setcolor(0);
    setfillstyle(1,0);
    fillellipse(x,y,r3,r3);
    setcolor(15);
    circle(xc,yc,r1);
    if keypressed then
     begin
      Ch:=ReadKey;
      if Ch=#27 then
       begin
         CloseGraph;
         halt(0);
       end;
     end;
   end;
 until 0=1;
end.