masterstvo2012

program kot;
uses crt, graph;
var gd,gm:integer;

begin
gd:=detect;
initgraph(gd,gm, 'c:\tp7\bgi');
cleardevice;
SetFillStyle(HatchFill,6);
SetColor(6);
FillEllipse(320,360,80,80);
SetFillStyle(EmptyFill,0);
FillEllipse(320,350,40,60);
SetFillStyle(HatchFill,6);
FillEllipse(320,245,40,40);
FillEllipse(170,400,80,10);
SetFillStyle(SolidFill,white);
FillEllipse(305,245,10,15);
FillEllipse(335,245,10,15);
SetFillStyle(EmptyFill,0);
FillEllipse(305,245,6,10);
FillEllipse(335,245,6,10);
SetColor(white);
SetLineStyle(SolidLn, 0, ThickWidth);
MoveTo(320,255);
LineTo(312,265);
LineTo(328,265);
LineTo(320,255);
LineTo(320,265);
Line(315,265,270,265);
Line(315,265,270,255);
Line(315,265,270,275);
Line(325,265,380,265);
Line(325,265,380,255);
Line(325,265,380,275);
SetColor(6);
MoveTo(280,230);
LineTo(290,180);
LineTo(300,210);
LineTo(280,230);
MoveTo(360,230);
LineTo(350,180);
LineTo(340,210);
LineTo(360,230);
Repeat Until KeyPressed;
ReadKey;
closegraph;
end.