var dv,mv: integer;
Begin
dv:=detect;
initgraph (dv,mv,' ');
cleardevice;
SetColor(2);
SetFillStyle(1,0);
FillEllipse(120,150,80,30);
Line(40,150,20,350);
Line(200,150,220,350);
Ellipse(120,350,180,10,100,30);
Line(23,345,27,340);
Line(37,330,41,328);
Line(51,320,55,318);
Line(65,314,69,313);
Line(79,311,83,310);
Line(93,308,97,307);
Line(107,307,111,307);
Line(121,307,125,307);
Line(135,307,139,307);
Line(149,307,153,308);
Line(163,310,167,311);
Line(177,313,181,315);
line(191,319,195,321);
Line(205,326,209,329);
Line(215,334,219,340);
Line(380,150,300,350);
Line(380,150,580,350);
Line(380,150,520,240);
Line(520,240,580,350);
Line(300,350,580,350);
Line(310,345,320,340);
Line(330,335,340,330);
Line(350,325,360,320);
Line(370,315,380,310);
Line(390,305,400,300);
Line(410,295,420,290);
Line(430,285,440,280);
Line(450,275,460,270);
line(470,265,480,260);
Line(490,255,500,250);
Line(510,245,520,240);
OutTextxy(100,400,'konys');
OutTextxy(400,400,'piramida');
SetTextStyle(0,0,2);
OutTextxy(250,50,'Geometry');
repeat until keypressed;
closegraph;
End.