Составить программу для построения в Паскале. Чертежник. Координаты можно брать целые

Вот такая образинка... )))

Смотри картинку...

uses Drawman;

begin

Field (10,10);

topoint(1,3);

pendown;

topoint(5,9);

topoint(9,3);

topoint(1,3);

penup;

topoint(5,1);

pendown;

topoint(1,7);

topoint(9,7);

topoint(5,1);

penup;

topoint(5,3);

pendown;

onvector(-1,1);

onvector(-1,0);

onvector(1,1);

onvector(-1,1);

onvector(1,0);

onvector(1,1);

onvector(1,-1);

onvector(1,0);

onvector(-1,-1);

onvector(1,-1);

onvector(-1,0);

onvector(-1,-1);

penup;

topoint(0,0)

end.