Вы меня простите, но на 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.
