Срочно!!!!!!! СРОЧНО!!!!!! Составьте программу построения изображения с использованием процедуры Flag

uses Drawman;
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.