Составьте программу которая нарисует в паскаль абс треугольную призму..

//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.