procedure doixung;

begin

putpixel(xc+x,yc+y,color);

putpixel(xc-x,yc+y,color);

putpixel(xc+x,yc-y,color);

putpixel(xc-x,yc-y,color);

putpixel(xc+y,yc+x,color);

putpixel(xc-y,yc+x,color);

putpixel(xc+y,yc-x,color);

putpixel(xc-y,yc-x,color);

procedure circle(xc,yc,r: integer);

var x,y:integer;

begin

for x:=0 to round(r&sqrt(2)/2) do

begin

y:=round(sqrt(r*r-x*x));

doixung;

end;

end;