организовать движения в паскаль ABC

[Nelson]

Как организовать движения объекта по кругу(окружности, на подобии солнечной системы)
Заранее спасибо!

[Leo08]

Вот пример для ABC:

uses crt,graphABC;
var x0,y0,x1,y1,i,r,gd,gm:integer;
begin
x0:=100 div 2;
y0:=100 div 2;
r:=y0-100;
i:=0;
repeat
x1:=x0+round(r*sin(i*pi/180));
y1:=y0-round(r*cos(i*pi/180));
setPencolor(3);
TextOut(x1, y1, '%)');
circle(x1,y1,1);
delay(10);
setPencolor(0);
circle(x1,y1,1);
if i<361 then inc(i) else i:=0;
until keypressed;
end.

Вот для Turbo Pascal:

uses crt,graph;
var x0,y0,x1,y1,i,r,gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
r:=y0-100;
i:=0;
repeat
x1:=x0+round(r*sin(i*pi/180));
y1:=y0-round(r*cos(i*pi/180));
setcolor(green);
outtextXY(x1, y1, '%)');
circle(x1,y1,1);
delay(10);
setcolor(0);
circle(x1,y1,1);
if i<361 then inc(i) else i:=0;
until keypressed;
end.

[Nelson]

Большое спасибо!!!