Алгоритм Брезенхема для генерации окружности

    program p1;
    uses GraphABC;
    Procedure Circle(x,y,rr:integer);
var xi,yi,r,d,lim,s:integer;
label 1,F,3,4,10,20,30;
Begin
r:=rr;
xi:=0; yi:=r; d:=2*(1-r); lim:=0;
1: SetPixel(xi+x,yi+y,clRed);
   SetPixel(xi+x,-yi+y,clRed);
   SetPixel(-xi+x,yi+y,clRed);
   SetPixel(-xi+x,-yi+y,clRed);
   if yi<lim then goto 4;
   if d<0 then goto F;
   if d>0 then goto 3;
   if d=0 then goto 20;
F: s:=2*d+2*yi-1;
   if s<=0 then goto 10;
   if s>0 then goto 20;
3: s:=2*d+2*xi-1;
   if s<=0 then goto 20;
   if s>0 then goto 30;
10:xi:=xi+1;            
   d:=d+2*xi+1;
   goto 1;
20:xi:=xi+1;
   yi:=yi-1;
   d:=d+2*xi-2*yi+2;
   goto 1;
30:yi:=yi-1;
   d:=d-2*yi+1;
   goto 1;4:
end;

uses graphABC;
var xc,yc:integer;
procedure bres_circle(xc,yc,r:integer);
 var x,y,d:integer;
 procedure sim(x,y:integer);
  begin
    setpixel(x+xc,y+yc,clRed);
    setpixel(x+xc,-y+yc,clRed);
    setpixel(-x+xc,-y+yc,clRed);
    setpixel(-x+xc,y+yc,clRed);
    setpixel(y+xc,x+yc,clRed);
    setpixel(y+xc,-x+yc,clRed);
    setpixel(-y+xc,-x+yc,clRed);
    setpixel(-y+xc,x+yc,clRed);
  end;
  begin
  d:=3-2*y;
  x:=0;
  y:=r;
  while(x <= y) do
    begin
     sim(x,y);
     if d<0    then d:=d+4*x+6
     else begin
     d:=d+4*(x-y)+10;
     dec(y)
    end;
  inc(x)
  end;
 end;
 begin
 xc:=windowwidth div 2;
 yc:=windowheight div 2;
 bres_circle(xc,yc,100);
 end.