Движение планеты заданного радиуса r1 вокруг солнца (с лучами) по заданному радиусу r2.

uses wincrt,graph;
var xc,yc,x1,y1,r1,r2,rc,i:integer;
    u,du:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r1:=7;
r2:=168;
rc:=50;
setcolor(14);
setfillstyle(1,14);
u:=pi/2;
du:=pi/12;
for i:=1 to 24 do
 begin
  x1:=xc+round((rc+15)*cos(u));
  y1:=yc-round((rc+15)*sin(u));
  line(xc,yc,x1,y1);
  u:=u+du
 end;
fillellipse(xc,yc,rc,rc);
u:=0;
du:=0.05;
repeat
x1:=xc+round(r2*cos(u));
y1:=yc-round(r2*sin(u));
setcolor(9);
setfillstyle(1,9);
fillellipse(x1,y1,r1,r1);
delay(100);
setcolor(0);
setfillstyle(1,0);
fillellipse(x1,y1,r1,r1);
u:=u+du
until keypressed
end.
readln
end.

uses wincrt,graph;
var xc,yc,x1,x2,y2,y,r:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=30;
x1:=r;
x2:=getmaxX-r;
y:=r;
repeat
cleardevice;
setcolor(9);
circle(x1,y,r);
setcolor(12);
circle(x2,y,r);
delay(20);
x1:=x1+1;
x2:=x2-1
until x2-x1<2*r;
readkey
end.

uses wincrt,graph;
var ax,ay,bx,by,cx,cy,h:integer;
begin
initgraph(ax,ay,'');
ax:=54;
ay:=48;
cx:=591;
cy:=84;
setfillstyle(1,15);
fillellipse(ax,ay,2,2);
fillellipse(cx,cy,2,2);
outtextXY(ax-4,ay-15,'A');
outtextXY(cx-4,cy-15,'C');
bx:=1;
by:=getmaxY-1;
outtextXY(getmaxX div 2-50,20,'Exit any key');
repeat
if bx<=1 then h:=4;
bx:=bx+h;
setcolor(15);
line(ax,ay,bx,by);
line(cx,cy,bx,by);
setfillstyle(1,15);
fillellipse(bx,by,2,2);
outtextXY(bx-4,by-15,'B');
delay(50);
setcolor(0);
line(ax,ay,bx,by);
line(cx,cy,bx,by);
setfillstyle(1,0);
fillellipse(bx,by,2,2);
outtextXY(bx-4,by-15,'B');
if bx>=getmaxX-1 then h:=-4;
until keypressed
end.