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

Question

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

---

Answer 1

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);
  PenUp
end;

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);
  PenUp
end;

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);
  PenUp
end;

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);
  PenUp
end;

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.

---