пока аолучается только вот такая телепортирующаяся планета...
program planet_ubi;
uses graph,crt;
var y,x,d,m,xc,yc,r1,r2,r3,x1,y1:integer;
begin
xc:=320;
yc:=240;
r1:=145;
r2:=45;
r3:=10;
initgraph(d,m,'');
repeat
for x:=0 to 360 do begin
y:=round(x*pi/180);
x1:=round(xc+(x-xc)*cos(y)+(y-yc)*sin(y));
y1:=round(yc+(y-yc)*cos(y)-(x-xc)*sin(y));
circle(x1,y1,r3);
setfillstyle(1,7);
circle(xc,yc,r1);
circle(xc,yc,r2);
floodfill(320,240,15);
delay(50);
cleardevice;
end;
until keypressed;
end.