Переделайте программу из TurboPascal в PascalABC.Net - PascalABC.NET - Ответ 7614719

uses
  graphabc;
 
var
  x1, y1, x2, y2, x3, y3, x4, y4: integer;
  p: array of point := new Point[4];
 
begin
  {определим координаты 4 вершин пирамиды}
  x3 := Window.Width div 2 + 200;{низ право}
  y3 := Window.Height div 2;
  x1 := x3 - 200;y1 := y3 + 200;{низ лево}
  x2 := x1 - 100;y2 := y3 + 50;{низ задняя}
  x4 := (x1 + x2 + x3) div 3;{верх}
  y4 := y3 - 200;
  {определим координаты полигона-сечения}
  p[0].x := (x1 + x4) div 2;p[0].y := (y1 + y4) div 2;
  p[1].x := (x2 + x4) div 2;p[1].y := (y2 + y4) div 2;
  p[2].x := (x4 + x3) div 2; p[2].y := (y4 + y3) div 2;
  p[3] := p[0];{замкнем его}
  SetPenColor(clRed);{нарисуем полигон-сечение} // 12
  SetBrushColor(clCyan);
  SetBrushStyle(bsSolid);
  FillPolygon(p);
  DrawPolygon(p);
  SetPenColor(clLightBlue);
  SetPenWidth(2);
  line(x1, y1, x4, y4);
  line(x2, y2, x4, y4);
  line(x3, y3, x4, y4);
  line(x1, y1, x2, y2);
  line(x3, y3, x1, y1);
  SetPenStyle(DashStyle.Dot); {задняя линия точками}
  SetPenWidth(1);
  line(x2, y2, x3, y3);
  readln
end.