Помогите, пожалуйста, как правильно составить вектор ** Паскале, чтобы получился подобный...

Question

Помогите, пожалуйста, как правильно составить вектор на Паскале, чтобы получился подобный график?

---

Answer 1

uses Drawman;

begin

   Field(18, 7);

   for var i := 1 to 15 do

   begin

     ToPoint(i + 1, 2);

     PenDown;

     OnVector(0, 3);

     PenUp

   end

end.