Question

Написать программу для рисования следующих фигур (исполнитель Чертежник)

Answer 1

1.
uses Drawman;
begin
field(15,15);
ToPoint(3,5);
PenDown;
ToPoint(11,5);
ToPoint(11,10);
ToPoint(3,10);
ToPoint(7,12);
ToPoint(11,10);
ToPoint(3,5);
ToPoint(3,10);
ToPoint(11,5);
end.
2.
uses Drawman;
begin
field(15,15);
ToPoint(3,5);
PenDown;
ToPoint(11,5);
ToPoint(11,10);
ToPoint(3,10);
ToPoint(7,12);
ToPoint(11,10);
ToPoint(3,10);
ToPoint(3,5);
end.