Question

Помогите написать программу в паскаль.

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Window.SetSize(550,500);
  var c:=new GraphABCCoordinate;
  c.SetMathematic;
  c.OriginY:=500;
  Pen.Color:=clBlack;
  DrawPolygon(Arr((80,40),(240,280),(200,120)));
  DrawPolygon(Arr((320,280),(480,40),(360,120)));
  DrawPolygon(Arr((160,120),(240,440),(280,480),(320,440),(400,120)));
  DrawPolygon(Arr((280,200),(240,240),(280,280),(320,240)));
  DrawPolygon(Arr((280,320),(240,360),(280,400),(320,360)))
end.