используя вспомогательные алгоритмы нарисовать запрограммируйте рисование следующих фигур

// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)uses drawman;begin  // поле 5 на 20  Field(20, 5);  // 1  ToPoint(1, 2);  PenDown;  OnVector(1, 0);  Onvector(0, 1);  OnVector(1, 0);  Onvector(0, -1);  OnVector(1, 0);  Onvector(0, 1);  OnVector(1, 0);  Onvector(0, -1);  OnVector(1, 0);  PenUp;  //2  ToPoint(7, 2);  PenDown;  Onvector(0, 1);  OnVector(1, 0);  OnVector(0, 1);  OnVector(1, 0);  OnVector(0, -1);  Onvector(1, 0);  OnVector(0, -1);  OnVector(-1, 0);  OnVector(0, -1);  OnVector(-1, 0);  OnVector(0, 1);  OnVector(-1, 0);  PenUp;  //3  ToPoint(11, 4);  PenDown;  OnVector(0, -2); OnVector(0, 1);  OnVector(1, 0);  OnVector(0, 1);  OnVector(0, -2);  PenUp;  //4  ToPoint(13, 4);  PenDown;  OnVector(0, -2);  OnVector(1, 0);  OnVector(0, 2);  OnVector(-1, 0);  PenUp;  //5  ToPoint(16, 4);  PenDown;  OnVector(-1, 0);  OnVector(0, -2);  OnVector(1, 0);  PenUp;  //6  ToPoint(17, 1);  PenDown;  OnVector(0, 1);  OnVector(1, 0);  OnVector(0, 1);  OnVector(1, 0);  OnVector(0, 1);  OnVector(1, 0);end.