program Luna;
uses graph,crt;
var gd,gm:integer;
begin
gd:=0; gm:=0;
initgraph (gd,gm,' ');
{rog}
setbkcolor (0);
setcolor (9);
line (20,20,60,110);
line (20,20,83,100);
{korona}
setcolor (1);
line (72,85,72,70);
line (72,70,82,81);
line (82,81,82,48);
line (82,48,95,82);
line (95,82,99,65);
line (99,65,110,96);
{griva}
setcolor (3);
ellipse (90,91,20,160,50,20);
ellipse (50,133,104,251,28,50);
ellipse (30,204,263,65,28,25);
ellipse (52,195,233,320,40,45);
ellipse (44,217,258,350,40,50);
ellipse (57,198,250,340,65,73);
line (81,102,138,92);
ellipse (87,138,95,208,43,35);
ellipse (62,136,229,340,20,25);
ellipse (73,136,90,320,10,13);
ellipse (21,29,289,318,160,100);
ellipse (145,165,350,60,40,80);
ellipse (203,180,180,300,18,30);
ellipse (190,192,170,330,25,30);
ellipse (118,120,330,0,60,100);
line (170,171,165,186);
ellipse (105,120,330,10,60,100);
ellipse (179,190,141,270,30,30);
{glas}
setcolor (9);
ellipse (120,130,30,192,25,10);
line (95,130,94,150);
ellipse (95,129,280,9,47,20);
line (94,150,102,149);
setcolor (8);
arc (94,150,9,85,15);
setcolor(2);
arc(94,150,9,56,25);
setcolor (9);
setlinestyle (0,0,2);
ellipse (122,137,50,150,30,10);
line (95,131,88,130);
arc (142,121,280,360,8);
arc (128,119,280,10,8);
arc (118,118,280,11,8);
arc (143,130,240,300,10);
arc (140,135,220,290,10);
arc (135,140,210,270,10);
fillellipse (100,144,1,1);
fillellipse (101,137,3,3);
{yxo}
setlinestyle (0,0,1);
ellipse (148,85,110,220,10,25);
ellipse (145,96,350,90,20,35);
{lico}
ellipse (60,160,270,360,10,10);
ellipse (75,170,180,340,15,15);
ellipse (89,183,190,338,15,9);
ellipse (107,166,265,340,35,20);
putpixel (72,175,9);
putpixel (73,174,9);
putpixel (73,173,9);
{telo}
setcolor (9);
ellipse (114,205,310,65,10,21);
line (120,222,110,259);
ellipse (132,285,170,260,25,35);
line (128,320,200,370);
line (193,222,225,263);
line (270,325,285,350);
{noga}
setcolor (9);
line (155,310,145,340);
line (145,340,115,300);
setcolor (3);
ellipse (80,325,31,90,40,50);
ellipse (89,310,118,190,20,40);
setcolor (9);
line (169,320,153,383);
line (153,383,70,319);
setcolor (3);
line (70,319,80,327);
line (80,327,82,310);
line (82,310,92,305);
line (92,305,92,295);
line (92,295,113,295);
setcolor (9);
{noga back}
setcolor (3);
line (73,285,63,280);
ellipse (60,305,88,240,10,25);
setcolor (9);
line (55,328,100,390);
line (100,390,120,360);
line (103,350,90,333);
setcolor (3);
line (63,338,63,320);
line (63,320,68,317);
{krilo}
setcolor (9);
ellipse (320,280,160,240,120,50);
ellipse (209,322,20,90,80,60);
ellipse (260,304,270,300,50,20);
ellipse (235,323,360,60,50,35);
line (283,303,231,279);
line (285,323,220,288);
arc (215,295,270,50,8);
arc (224,284,270,40,7);
arc (233,273,279,45,8);
{znak}
setcolor (1);
ellipse (114,205,268,342,70,50);
ellipse (132,273,150,1,25,27);
ellipse (135,234,293,18,60,40);
fillellipse (132,276,17,17);
setfillstyle (1,0);
setcolor (0);
fillellipse (125,276,11,11);
while not keypressed do;
end.