Program buzia;
uses
crt,graph;
var
r:integer;
karta,tryb:integer;
begin
clrscr;
detectgraph(karta,tryb);
initgraph(karta,tryb,'c:\tp\bgi');
setcolor(green);
circle(200,200,150); {buzia}
circle(200,200,20); {nos}
circle(600,200,150); {buzia}
circle(600,200,20); {nos}
setcolor(blue);
circle(130,150,30);{oko p}
circle(260,150,30);{oko L}
circle(530,150,30);{oko p2}
circle(660,150,30);{oko l2}
setcolor(red);
Ellipse(200,250,180,360,50,50);
Ellipse(600,300,0,180,50,50);
settextstyle(0,0,2);
outtextxy(150,550,'USMIECHNIJ SIE');
outtextxy(550,550,'GLOWA DO GORY!!!');
Ellipse(130,150,0,180,50,40); {brwi}
Ellipse(260,150,0,180,50,40);
Ellipse(530,150,0,180,50,40);
Ellipse(660,150,0,180,50,40);
rectangle(150,350,250,450);{szyja}
rectangle(550,350,650,450);
setcolor(lightblue);
moveto(100,350); {mucha}
lineto(100,450);
lineto(300,350);
lineto(300,450);
lineto(100,350);
moveto(500,350);
lineto(500,450);
lineto(700,350);
lineto(700,450);
lineto(500,350);

readkey;
closegraph;
end.