помогите с информатикой. надо в паскале составить программу на движение какого то объекта

Рисует шахматную доску

Program zadacha1;
uses graph, crt;
var driver, mode, m, n:integer;
stroka:string[1];
const
l:array [0..7] of string[1] =('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h');
begin
driver:=detect;
Initgraph(driver, mode, 'c:/bp/bgi');
setcolor(15);
for n:=1 to 8 do
for m:=0 to 7 do
rectangle(n*50, m*50, n*50+50, M*50+50);
for n:=0 to 3 do
begin
for m:=0 to 3 do
begin
floodfill(100*n+75, 100*m+25, 15);
floodfill(100*n+125, 100*m+75, 15);
end;
end;
for n:=0 to 7 do
begin
str(8-n, stroka);
OutTextXY(25, n*50+22, stroka);
end;
for n:=0 to 7 do
OutTextXY(n*50+70, 415, l[n]);
readln;
closegraph;
end.

Движущийся шарик

Program move1;
Uses graph, CRT;
Var Driver, mode, x, y, r, x1, y1, s, color:Integer;
Procedure krug(x, y:Integer);
Begin
setbkcolor(white);
Setcolor(color);
Setlinestyle(0, 1, 2);
Circle(x, y, r);
outtextxy(x-r+5, y-2, 'kolobox');
Delay(5000);
Cleardevice;
End;
Begin

R:=25;
S:=6;
color:=0;
Driver:=Detect;
Initgraph(Driver, Mode, 'c:\BP\BGI');

While not Keypressed do begin
r:=r+5;
color:=color+1; if color=14 then color:=1;
y:=GetmaxY-R;
x:=R;
while y>=R do
Begin
Krug(x, y);
y:=y-S;
End;

color:=color+1; if color=14 then color:=1;
y:=R;
x:=R;
while x<=getmaxX-R do
Begin
Krug(x, y);
x:=x+S;
s:=s+1;
End;
s:=6;
color:=color+1; if color=14 then color:=1;
y:=R;
x:=GetmaxX-R;
while y<=GetmaxY-R do
Begin
Krug(x, y);
y:=y+S;
End;
color:=color+1; if color=14 then color:=1;
y:=Getmaxy-R;
x:=GetmaxX-R;
while x>=R do
Begin
Krug(x, y);
x:=x-S;
s:=s+1;
End;
S:=6;
End;
Closegraph;
End.

интересно кагого, задание не очень то и понятное что нужно составлять, конкретнее нужно задавать такие вопросы

вопрос из ряда где находиться звезда если небо голубое....

С такими "исходными" данными варианты программки безконечны.. . Конкретизируйте задачу