Можете помочь нарисовать рисунок в Pascal ABC.
ОЧЕНЬ СРОЧНО

uses DrawMan;var i:integer;begin  Field(22,14);  for i:=1 to 4 do  begin    ToPoint(6,7+i);    PenDown;    OnVector(5,-5);    OnVector(5,5);    OnVector(i,-i);    OnVector(-i,-i);    OnVector(-5,5);    OnVector(-5,-5);    OnVector(-i,i);    OnVector(i,i);    PenUp;  end;end.