Алгоритмизация 7 класс
2 любые задачи

Вы меня простите, но на 2 рисунок у меня не осталось времени но я думаю что лучше хоть что то чем ничего.

И ещё 1 нюанс. Я немного не посмотрел на координаты.

Объяснение:

uses drawman;

var i:integer;

procedure figura;

begin

 OnVector(1,1);

 PenDown;

 OnVector(8,0); onvector(0,2); onvector(-2,0); OnVector(0,-2);

 OnVector(0,5); OnVector(-2,0);

 OnVector(0,-5); OnVector(0,8);

 onvector(-2,0);

 onvector(0,-8);

 onvector(0,11);

 onvector(-2,0);

  onvector(0,-11);

 PenUp;

 onvector(5,1);

end;

begin

Field(22,17);

for i:=1 to 3 do begin

 figura;

end;  

end.