ПОМОГИТЕ ПО ИНФОРМАТИКЕ!!!
ЧЕРТЕЖНИК СДЕЛАТЬ ФИГУРЫ

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018Внимание! Если программа не работает, обновите версию!uses Drawman;procedure RL(x,y:integer);begin  PenUp;  ToPoint(x,y);  PenDown;  OnVector(2,0);  OnVector(0,2);  PenUpend;procedure RL4;begin  var (x,y):=(2,11);  for var i:=0 to 3 do    RL(x+i,y-i)end;procedure RU(x,y:integer);begin  PenUp;  ToPoint(x,y);  PenDown;  OnVector(2,0);  OnVector(0,-2);  PenUpend;procedure RU4;begin  var (x,y):=(2,4);  for var i:=0 to 3 do    RU(x+i,y+i)end;procedure LU(x,y:integer);begin  PenUp;  ToPoint(x,y);  PenDown;  OnVector(-2,0);  OnVector(0,-2);  PenUpend;procedure LU4;begin  var (x,y):=(13,4);  for var i:=0 to 3 do    LU(x-i,y+i)end;procedure LL(x,y:integer);begin  PenUp;  ToPoint(x,y);  PenDown;  OnVector(-2,0);  OnVector(0,2);  PenUpend;procedure LL4;begin  var (x,y):=(13,11);  for var i:=0 to 3 do    LL(x-i,y-i)end;begin  Field(15,15);  RL4; RU4; LU4; LL4;  ToPoint(0,0)end.