//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
const h=300;
begin
maximizewindow;
line(0,100,400,100);
line(0,100,200,300);
line(400,100,200,300);
line(0,100,0,100+h);
line(400,100,400,100+h);
line(200,300,200,300+h);
line(0,100+h,400,100+h);
line(0,100+h,200,300+h);
line(200,300+h,400,100+h);
end.