Графика!

x1:=100; x2:=400; y1:=120; y2:=380; {Координаты углов наружной коробки} 
 
dx:= -5;  dy:= 3;  {  начальный шаг движения мяча } 
 
r:= 4; { Радиус мяча } 
 
SetColor(11);   Rectangle(x1, y1, x2, y2);  { Наружная коробка } 
 
              Rectangle(x1+30, y1+70, x1+120, y1+90); { Внутренние коробки } 
 
             Rectangle(x1+200, y1+90, x1+230, y1+200);                
 
           xc:= x1+90;  yc:= y1+110;  Circle(xc, yc, r); { Мячик } 
 
           ax:= abs(dx);   ay:= abs(dy); { число пикселов по ходу движения } 
 
Repeat    i2:= 0;  i1:= 0; { признаки удара о стенку равны нулю } 
 
   zx:= dx div abs(dx);   zy:= dy div abs(dy);  { направление движения } 
 
       for i:= 1 to ax do 
 
    if GetPixel(xc+(r+i)*zx, yc) > 0 then  { удар о вертикальную стенку } 
 
                           begin  dx:= -dx;  i1:= 1;  break   end; 
 
      for i:= 1 to ay do 
 
   if GetPixel(xc, yc+(r+i)*zy) > 0 then  { удар о горизонтальную стенку } 
 
                            begin  dy:= -dy;  i2:=1;  break   end; 
 
  
 
      if (i1+i2 = 0) then  for i:= 1 to ax do  for k:= 1 to ay do 
 
 if (GetPixel(xc+(r+i)*zx, yc+(r+k)*zy)>0) then { удар во внешний угол } 
 
                         begin dy:= -dy;  dx:= -dx;   break   end; 
 
  
 
  SetColor( 0);  Circle(xc, yc, r);   { стирание мяча } 
 
                            xc:= xc+dx;  yc:= yc+dy; { приращение координат } 
 
  SetColor(14);  Circle(xc, yc, r)   { рисование мяча } 
 
Until Keypressed;