Объяснение программы

uses GraphABC;
const a = 100;  R = 130; N = 300000;
var delte_fi : integer := 30; fi : integer := 0; i : integer;
 
function ArcTan2(X, Y: Real): Real;
begin
 if (X = 0.0) and (Y = 0.0) then
   ArcTan2 := 0.0
 else if X >= Y then
 begin
   if X >= -Y then
     ArcTan2 := ArcTan(Y / X) { правый квадрант }
   else
     ArcTan2 := -Pi / 2 - ArcTan(X / Y) { нижний квадрант }
 end
 else
 begin
   if X >= -Y then
     ArcTan2 := Pi / 2 - ArcTan(X / Y) { верхний квадрант }
   else if Y >= 0.0 then
     ArcTan2 := Pi + ArcTan(Y / X) { верхний октант в левом квадранте }
   else
     ArcTan2 := -Pi + ArcTan(Y / X) { нижний октант в левом квадранте }
 end
end;
 
 
 
procedure list(a,R : integer; fi:integer; N : longint);
var x,y, x_new,y_new : integer; i : integer; 
    R_leng, fi_corent : real;
begin
  pen.Color := rgb( random(255), random(255), random(255)) ; 
 
  for i := 1 to N do begin
      x := random(-100-R,100+R);
      y := random(-100-R,100+R);
      if (sqr(x-a) + sqr(y-R) <= sqr(R) ) and
         (sqr(x+a) + sqr(y-R) <= sqr(R) ) 
      then begin 
          R_leng := sqrt(sqr(x) + sqr(y));
 
         
          if true then begin
           
            fi_corent := ArcTan2(x,y);
           
            //writeln(fi_corent);
            y_new := round(R_leng * sin( fi_corent + fi*pi/180 ));
            x_new := round(R_leng * cos( fi_corent + fi*pi/180 ));
            PutPixel( x_new, y_new , pen.Color);
            
            
            
            
          end;
        {  if(x<0)and (y<0) then begin
            
            fi_corent := (ArcTan( y/x ));
            //writeln(fi_corent);
            y_new := round(R_leng * sin( fi_corent - fi*pi/180 ));
            x_new := round(R_leng * cos( fi_corent - fi*pi/180 ));
            PutPixel( x_new, y_new , pen.Color);
   
            
          end;}         
          
         { if (x>0) and (y>0) then begin
            fi_corent := (ArcTan( y/x )); 
            //writeln(fi_corent);
            y_new := round(R_leng * sin( fi_corent +
            fi*pi/180 ));
            x_new := round(R_leng * cos( fi_corent + fi*pi/180 ));
            PutPixel( x_new, y_new , pen.Color);
          end;        
         } 
          
      end; 
  end;  
end;
 
 
begin
 
  
  Coordinate.SetMathematic;
  Coordinate.OriginX := WindowWidth div 2;
  Coordinate.OriginY := WindowHeight div 2;
  
  randomize;
 
  fi := 0;
  while fi < 360 do begin
    pen.Color := rgb( random(255), random(255), random(255)) ;
    list(a,R,fi,N);
    fi += delte_fi
  end;  
 
 
end.

uses GraphABC;
const a = 100;  R = 130; N = 300000;
var
  delte_fi := 30;
  fi := 0;
 
function ArcTan2(X, Y: Real):= -Pi / 2 - ArcTan(X / Y);
 
procedure list(a,R : integer; fi:integer; N : longint);
begin
  pen.Color := rgb( random(255), random(255), random(255)) ; 
 
  loop N do
    begin
      var x := random(-100-R,100+R);
      var y := random(-100-R,100+R);
      if (sqr(x-a) + sqr(y-R) <= sqr(R) ) and (sqr(x+a) + sqr(y-R) <= sqr(R) ) then
        begin
          var R_leng := sqrt(sqr(x) + sqr(y));
          var fi_corent := ArcTan2(x,y);
          PutPixel( round(R_leng * sin( fi_corent + fi*pi/180 )),
                    round(R_leng * cos( fi_corent + fi*pi/180 )),
                   pen.Color);
        end;
    end;  
end;
 
begin
  Coordinate.OriginX := WindowWidth div 2;
  Coordinate.OriginY := WindowHeight div 2;
 
  while fi < 360 do
    begin
      list(a,R,fi,N);
      fi += delte_fi
    end;  
end.