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.