Составьте алгоритмы управления Чертежником, после исполнения которых будет получен следующий рисунок

uses Drawman;

var i,x,y: integer;

begin

Field(13,13);

for i:=0 to 3 do

begin

 x:=1+i;

 y:=3+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y-2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=1+i;

 y:=10-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=1+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y+2);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=12-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y-2);

 ToPoint(x+2,y-2);

 PenUp;

end;

ToPoint(0,0);

end.

4 попрощайся и захлопни дверь

6 вс выключи .

  заголовок выйди из дома

3 закрой квартиру

4 поверни ключ

в цикле sum [i]: =sum+mas[i,j];