Teszt-graph PP

uses graph, wincrt;
var gd,gm: smallint;
begin
gd := detect;
gm := detect;
initgraph(gd,gm,'');
if graphresult<>grok then
begin
writeln('Hiba a grafika inicializalasanal.');
delay(1000);
halt;
end;
setcolor(white);
setlinestyle(solidln,3,1);
ellipse(500,500,0,360,180,160);
setfillstyle(solidfill,white);
floodfill(499,499,white);
setcolor(black);
ellipse(450,450,0,360,36,46);
ellipse(550,450,0,360,36,46);
line(414,450,486,450);
line(514,450,586,450);
setfillstyle(solidfill,black);
floodfill(450,460,black);
floodfill(550,460,black);
setfillstyle(solidfill,white);
setcolor(white);
circle(450,450,10);
circle(550,450,10);
floodfill(452,452,white);
floodfill(552,452,white);
setcolor(black);
line(414,450,486,450);
line(514,450,586,450);
setlinestyle(solidln,3,3);
ellipse(500,560,200,340,50,30);
setlinestyle(solidln,3,1);
ellipse(450,370,250,360,40,34);
ellipse(550,390,175,270,40,14);
setcolor(white);

readkey;
closegraph;
end.