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.
Объяснение:
картинка
