Вот тебе один ромб, проделывай в последовательности изменив пару координат. 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.