Question

Нужен ромб по паскалю

Answer 1

PascalABC.Net 3.2

uses GraphABC;
begin
  DrawPolygon(Arr((140,50),(230,170),(140,290),(50,170)))
end.