program twilight;
uses crt,graph;
var gd,gm:integer;
begin
gd:=0;
gm:=0;
initgraph (gd,gm,' ');
{griva verx}
setcolor (5);
ellipse (110,80,180,255,50,60);
ellipse (110,80,180,235,50,40);
ellipse (99,77,115,235,30,45);
ellipse (123,54,160,250,40,50);
ellipse (138,83,95,205,30,43);
ellipse (160,58,160,240,30,48);
ellipse (165,100,106,180,20,35);
ellipse (170,76,165,320,12,30);
ellipse (210,95,180,245,30,40);
{griva verx polosi}
setcolor (12);
ellipse (202,105,180,245,30,40);
ellipse (170,101,180,254,25,42);
setcolor (13);
ellipse (156,88,180,254,21,54);
setcolor (5);
ellipse (140,80,155,254,25,65);
ellipse (112,32,193,254,40,100);
{griva niz}
setcolor (5);
ellipse (251,166,120,280,23,14);
line (255,180,239,193);
ellipse (259,193,10,170,20,3);
ellipse (271,198,80,200,28,5);
line (245,200,276,201);
ellipse (295,320,100,140,105,120);
{griva niz polosi}
setcolor (12);
ellipse (295,310,113,140,105,120);
ellipse (320,301,120,136,150,120);
setcolor (13);
ellipse (310,292,113,131,150,120);
setcolor (5);
line (235,150,220,159);
line (230,169,220,168);
line (230,173,218,172);
{yxo}
setcolor (13);
ellipse (212,182,110,149,25,60);
ellipse (199,159,300,76,20,35);
arc (195,150,300,10,15);
{povyazka golova}
setcolor (7);
ellipse (145,139,189,351,50,3);
ellipse (121,149,249,351,70,10);
line (97,140,96,158);
line (216,138,230,137);
line (230,137,231,150);
line (231,150,218,151);
arc (230,127,270,360,10);
arc (228,142,325,50,20);
line (231,150,245,155);
line (231,148,248,142);
line (231,144,234,142);
line (150,146,190,141);
line (144,152,189,151);
{rog}
setcolor (13);
line (105,140,100,107);
line (100,107,127,141);
{povyazka}
setcolor (8);
ellipse (107,215,110,160,20,60);
ellipse (80,168,296,20,20,30);
line (100,175,150,158);
setlinestyle (0,0,3);
line (110,171,118,169);
line (110,172,118,170);
setlinestyle (0,0,3);
{face}
setcolor (13);
ellipse (68,197,300,340,25,3);
line (90,197,91,194);
ellipse (89,203,170,250,10,13);
ellipse (89,225,5,95,16,10);
line (104,222,87,220);
ellipse (137,192,220,283,65,45);
line (150,235,165,264);
line (210,190,215,245);
{glaz}
setlinestyle (0,0,0);
setcolor (8);
arc (160,150,200,280,30);
ellipse (141,227,90,155,25,53);
setcolor (13);
ellipse (140,163,280,342,25,53);
setcolor (13);
arc (105,275,55,83,70);
setcolor (8);
arc (165,173,260,301,10);
arc (153,221,50,95,10);
arc (157,216,50,95,10);
arc (160,211,50,94,10);
setcolor (8);
ellipse (126,195,180,100,5,9);
setcolor (5);
ellipse (126,195,205,90,7,11);
fillellipse (128,193,2,3);
fillellipse (124,197,1,1);
{lico detali}
setlinestyle (0,0,3);
setcolor (12);
line (160,220,175,210);
setcolor (13);
line (130,215,120,212);
putpixel (85,205,13);
putpixel (86,205,13);
putpixel (87,204,13);
{telo}
setcolor (8);
ellipse (165,233,270,350,50,25);
arc (225,246,180,240,10);
ellipse (193,248,190,270,30,55);
line (218,252,238,252);
line (238,252,265,245);
ellipse (284,251,90,150,20,15);
line (285,236,273,245);
line (273,245,286,240);
line (286,240,278,246);
ellipse (243,310,200,340,26,5);
{telo shtrixi}
setcolor (8);
arc (190,280,90,180,11);
arc (180,270,270,360,9);
arc (210,260,250,340,20);
line (205,278,227,268);

arc (270,260,190,260,5);
arc (267,263,190,270,5);
line (280,255,290,270);
line (288,267,280,276);
line (286,276,276,261);
line (276,268,284,258);
line (300,270,305,264);
line (303,279,290,289);
line (302,285,293,292);
line (292,280,299,294);
{telo + zadnie nogi}
setcolor (8);
ellipse (280,300,340,90,39,55);
line (315,320,315,325);
arc (322,339,69,110,15);
ellipse (315,400,340,70,35,80);
ellipse (329,430,150,0,19,5);
ellipse (270,399,340,70,45,80);
ellipse (301,291,180,250,40,35);
ellipse (290,287,220,240,40,40);
ellipse (254,395,345,70,40,80);
ellipse (311,417,155,275,19,5);
{nogi shtrixi}
setcolor (13);
ellipse (345,385,85,280,25,7);
ellipse (291,390,283,80,15,5);
setcolor (8);
arc (325,405,180,270,3);
arc (324,410,180,270,4);
line (330,345,320,350);
line (330,338,315,345);
line (318,341,323,352);
line (320,335,325,343);
arc (318,348,350,30,10);
setcolor (13);
ellipse (200,380,273,86,25,9);
setfillstyle (1,5);
setcolor(8);
fillellipse (219,360,12,3);
setcolor (13);
line (200,350,190,348);
line (200,360,190,362);
setcolor (8);
line (212,395,225,410);
line (225,400,215,420);
line (215,410,225,420);
line (210,400,218,398);
{perednie nogi}
setcolor (8);
ellipse (178,367,320,80,11,71);
ellipse (189,374,320,70,12,81);
ellipse (216,429,160,358,19,5);
ellipse (205,412,160,247,19,5);
ellipse (203,430,360,75,32,135);
{xvost}
setcolor (5);
ellipse (364,249,80,180,70,60);
line (377,191,365,195);
ellipse (367,255,40,90,70,60);
line (420,217,403,215);
ellipse (342,344,20,60,120,150);
ellipse (333,268,100,140,40,20);
line (325,250,343,266);
line (343,266,339,254);
ellipse (330,351,345,80,50,100);
ellipse (365,80,275,308,131,300);
ellipse (365,80,310,315,131,300);
line (450,310,430,270);
line (430,270,445,320);
{xvost polosi}
setcolor (5);
ellipse (333,292,350,100,42,44);
setcolor (13);
ellipse (333,305,340,130,50,70);
setcolor (12);
ellipse (337,320,326,134,58,100);
ellipse (345,355,359,134,70,150);
setcolor (5);
ellipse (345,360,368,115,90,160);
while not keypressed do;
end.