uses graph,crt-

vargd,gm,x,y,r:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtextxy(40,0,’Введите координаты центраокружности’)-

readln(x)-

readln(y)-

outtextxy(40,20,’Введите радиус окружности’)-

readln(r)-

CIRCLE (x, y, r)-

floodfill(x,y, 15)-

repeat-

until keypressed-

closegraph-

end.