Решите даю 70 баллов

Question

Решите даю 70 баллов

---

Answer 1

Ответ:

Program 1;

procedure flag (x,y: integer);

begin

topoint(x, y);

pendown;

onvector(0, 5);

onvector(3, 0);

onvector(-1, -1);

onvector(1, -1);

onvector(-3, 0);

penup

end;

begin

field (15,7);

flag (1,1);

flag (7,1);

flag (12,1);

topoint (0,0)

end.