program s1;
uses crt,graph;
Var gd,gm,x,y,i,d:integer;
begin
Gd:=d4bit;
Gm:=m640x480;
initgraph(gd,gm,'');
setcolor(2);
circle(300,200,199);
setfillstyle(1,2);
floodfill(300,200,2);
readkey;

closegraph;
end.
