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.