Вот тебе один ромб, проделывай в последовательности изменив пару координат.
Program rs_3;
Uses Drawman;
Begin
Field (11,12);
ToPoint (2,1);
Pen Down;
ToPoint(2,1); ToPoint(5,1);
ToPoint(5,1); ToPoint(6,2);
ToPoint(6,2); ToPoint(6,5);
ToPoint(6,5); ToPoint(5,6);
ToPoint(5,6); ToPoint(2,6);
ToPoint(2,6); ToPoint(1,5);
ToPoint(1,5); ToPoint(1,2);
ToPoint(1,2); ToPoint(2,1);
Pen Up;
ToPoint(3,2);
PenDown;
ToPoint(3,2); ToPoint(2,3);
ToPoint(2,3); ToPoint(2,4);
ToPoint(2,4); ToPoint(3,5);
ToPoint(3,5); ToPoint(4,5);
ToPoint(4,5); ToPoint(5,4);
ToPoint(5,4); ToPoint(5,3);
ToPoint(5,3); ToPoint(4,2);
ToPoint(4,2); ToPoint(3,2);
End.
