uses graph, crt;
var
gd, gm: integer;
begin
initgraph(gd, gm, 'c:\bp\bgi');
setcolor(15);
line(220, 240, 320, 100);
line(320, 100, 420, 240);
line(220, 140, 420, 140);
line(220, 140, 420, 240);
line(420, 140, 220, 240);
delay(3000);
end.