program sun;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
fillellipse (270,180,90,90);
Setcolor (14);
Line (270,30,270,90);
Line (270,270,270,330);
Line (420,180,360,180);
Line (180,180,120,180);
Line (210,120,165,75);
Line (330,240,375,285);
Line (210,240,165,285);
Line (330,120,375,75);
setcolor (4);
Line (270,30,315,75);
Line (315,75,375,75);
Line (375,75,375,135);
Line (375,135,420,180);
Line (420,180,375,235);
Line (375,235,375,285);
Line (375,285,315,285);
Line (315,285,270,330);
Line (270,330,225,285);
Line (225,285,165,285);
Line (165,285,165,225);
Line (165,225,120,180);
Line (120,180,165,135);
Line (165,135,165,75);
Line (165,75,225,75);
Line (225,75,270,30);
Readln
end.