uses graph,crt;
var gd,gm:integer;
begin
initgraph(gd,gm,'c:\bp\bgi');
LINE (150, 100,67, 100);
LINE (67, 100,102, 68);
LINE (102, 68,150, 100);
floodfill (100, 90, 15);
delay(2000);
clearviewport;
bar(73, 49,141, 109);
delay(2000);
clearviewport;
LINE (73, 49,103, 79);
LINE (103, 79,92, 120);
LINE (92, 120,50, 120);
LINE (50, 120,31, 79);
LINE (31, 79,73, 49);
floodfill (90, 90, 15);
delay(2000);
clearviewport;
LINE (73, 49,111, 49);
LINE (111, 49,132, 71);
LINE (132, 71,111, 93);
LINE (111, 93,73, 93);
LINE (73, 93,52, 71);
LINE (52, 71,73, 49);
floodfill (100, 90, 15);
repeat;
until keypressed;
closegraph;
end.