Бильярдный шар (графика)

  uses graph;
var
  device,mode:integer;
  c,y,x:integer;
begin
  device:=0;
  randomize;
  initgraph(device,mode,'<>');
  setfillstyle(1,green);     //ЎЁ«мпа¤*л© бв®« **з*«®
  rectangle(100,100,900,500);
  rectangle(90,90,910,510);
  floodfill(110,110,white);
  setfillstyle(1,brown);
  floodfill(95,95,white);//ЎЁ«мпа¤*л© бв®« Є®*Ґж
  circle(115,115,15);  //«г*Є*1
  circle(115,485,15);  //«г*Є*2
  circle(885,115,15);  //«г*Є*3
  circle(885,485,15);  //«г*Є*4
  setfillstyle(1,0);   //Єа*бЁ¬ «г*ЄЁ **з*«®
  x:=115; y:=115;
  for c:=1 to 2 do begin
  floodfill(x,y,white);
  y:=485;
  end;
  floodfill(885,115,white);
  floodfill(885,485,white);//Ї®Єа*бЄ* «г*ЄЁ Є®*Ґж
 // circle(500,300,10);
  x:=500;
  y:=300;
    repeat
    for c:=1 to 19 do begin
      setcolor(white);
      setfillstyle(1,white);
      circle(x,y,10);
      floodfill(x,y,white);
      setcolor(green);
      setfillstyle(1,green);
      circle(x,y,10);
      floodfill(x,y,green);
      x:=x+10;
      y:=y+10;
    end;
    for c:=1 to 20 do begin
      setcolor(white);
      setfillstyle(1,white);
      circle(x,y,10);
      floodfill(x,y,white);
      setcolor(green);
      setfillstyle(1,green);
      circle(x,y,10);
      floodfill(x,y,green);
      x:=x+10;
      y:=y-10;
    end;
    for c:=1 to 18 do begin
      setcolor(white);
      setfillstyle(1,white);
      circle(x,y,10);
      floodfill(x,y,white);
      setcolor(green);
      setfillstyle(1,green);
      circle(x,y,10);
      floodfill(x,y,green);
      x:=x-10;
      y:=y-10;
    end;
    for c:=1 to 30 do begin
      setcolor(white);
      setfillstyle(1,white);
      circle(x,y,10);
      floodfill(x,y,white);
      setcolor(green);
      setfillstyle(1,green);
      circle(x,y,10);
      floodfill(x,y,green);
      x:=x-10;
      y:=y+10;
    end;
  until y>489;
  readln;
  closegraph;
end.