program tekst;
uses graph;
{$I graafika.pas}

begin
kaivitagraafika;
setcolor (red);
setfillstyle (LineFill, green);
fillellipse (200, 100, 50, 50);
fillellipse (400, 100, 50, 50);
fillellipse (200, 300, 50, 50);
fillellipse (400, 300, 50, 50);
setfillstyle (SlashFill, white);
fillellipse (300, 200, 100, 110);
setcolor (yellow);
line (325, 200, 300, 200);
line (326, 201, 301, 201);
line (251, 151, 301, 201);
line (250, 150, 300, 200);
line (249, 149, 299, 199);
readln;
closegraph;
end.