компьютерная графика, изобразить окрузность в паскале и заштриховать её Опции

[Багирка]

задача такова: по заданным значениям координат центра окружности и числа N , построить окружность максимального радиуса, целиком помещающуюся в экран и разбить её на N заштрихованных разными типами штриховки полос равной ширины.
Пожалуйста помогите! зачет в субботу не успеваю все сделать...

[Lapp]

Сам хоть что-то пытался сделать?
Покажи.

[Багирка]

Сам хоть что-то пытался сделать?
Покажи.

если бы было время... не знаю за что хвататься... ещё 6 прог надо написать...

[Lapp]

если бы было время... не знаю за что хвататься... ещё 6 прог надо написать...

А!.. То есть, ты нам покажешь остальные шесть, да?.. Это радует!

[Багирка]

А!.. То есть, ты нам покажешь остальные шесть, да?.. Это радует!

покажу) тока вначале сделаю) а вот та программка (не знаю правильно ли)

Program oooo;
uses crt,graph;
var n,i,gd,gm,x0,y0,r,r1:integer;
begin
clrscr;
repeat
write('x0=');readln(x0);
write('y0=');readln(y0);
until (x0>0)and(x0<640)and(y0>0)and(y0<480);
write('N=');readln(n);
gd:=detect;
InitGraph(gd,gm,'d\tp\bgi');
r:=y0;
if (getmaxY-y0)<r then r:=(getmaxY-y0);
if x0<r then r:=x0;
if (getmaxX-x0)<r then r:=(getmaxX-x0);
Setcolor(4);
Circle(x0,y0,r);
for i:=n downto 1 do
  begin
     r1:=round(r*(i)/n);
     SetFillStyle(i+1,i+1);
     FillEllipse(x0,y0,r1,r1);
  end;
readln;
closegraph;
end.