pascla.txt

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.