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

Question

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

---

Comments

С помощью алгоритмов, программы и OnVector

Answer 1

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.