uses crt,graph; var x,y:integer;a,b,Rx,Ry:integer;eps:real; gd,gm,i:integer; begin gd:=detect; InitGraph(gd,gm,''); i:=0; begin x:=300;y:=200;a:=0;b:=360;Rx:=300;Ry:=sqrt(sqr(300)-sqr(a*eps)); setcolor(9); ellipse(x,y,a,b,Rx,Ry); setfillstyle(10,10); sector(300,200,180,130,300,Ry); setfillstyle(11,9); setcolor(lightmagenta); sector (300,200,130,50,300,Ry); setfillstyle(5,10); setcolor(yellow); sector (300,200,90,50,300,Ry); setfillstyle(9,9); setcolor(red); sector (300,200,180,360,300,Ry); setfillstyle(10,9); setcolor(green); sector (300,200,0,60,300,Ry) end; readln; end.