uses graphABC;
var x,y,d:integer;
begin
setpenwidth(3);
x:=windowwidth div 2;
y:=windowheight div 2;
d:=y-10;
rectangle(x-d,y-d,x+d,y+d);
setbrushcolor(bsSolid);
circle(x,y,d);
setpencolor(clWhite);
moveto(x-d,y);
lineto(x,y-d);
lineto(x+d,y);
lineto(x,y+d);
lineto(x-d,y);
floodfill(x,y,clWhite)
end.