program tekst;
uses graph;
{$I graafika.pas}
begin
 kaivitagraafika;
 outtextxy(10, 10, 'Tere!');
 rectangle(5, 5, 70, 20);
 setcolor(green);
 setfillstyle(LineFill, red);
 fillellipse(200, 100, 50, 80);
 fillellipse(400, 100, 50, 80);
 ellipse(300, 220, 0, 360, 100,  50);
 ellipse(300, 200, 210, 330, 230, 130);
 putpixel(300, 200, red);
 circle(getmaxx-60, 50, 30);
 circle(getmaxx-75, 50, 10);
 circle(getmaxx-45, 50, 10);
{ setfillstyle(1, yellow);
 floodfill(getmaxx-60, 50, green);}
 readln;
 closegraph;
end.