Напишите мне программу забора используя алгоритм (Паскаль)

program zabor;

uses drawman;

procedure doska;

begin

OnVector (0,5);

OnVector (1,1);

OnVector (1,-1);

OnVector (0,-5);

OnVector (-2,0);

OnVector (2,0)

end;

var i:integer;

begin

Field(26,9);

PenDown;

for i:=1 to 13 do doska;

PenUp;

ToPoint (0,0)

end.

Объяснение:

картинка