Question

помогите пожалуйста срочно дам 70 балов​

Answer 1

uses Drawman;

procedure r;

begin

 OnVector(3,-3);

 OnVector(-1,-1);

 OnVector(-1,1);

 OnVector(3,3);

end;

begin

 Field(42,6);

 ToPoint(1,5);

 PenDown;

 r;r;r;r;r;r;r;r;r;r;

 PenUp;

end.