Question

Пожалуйста помогите с Pascal ABC,ни как не могу разобраться. Ну вообщем нужно сделать любой рисунок (не цветной) на 30 программ.

Answer 1

uses drawman;
begin
field(14,14);
ToPoint(2,2);
PenDown;
ToPoint(2,8);
ToPoint(8,8);
ToPoint(8,2);
ToPoint(2,2);
PenUp;
toPoint(5,11);
pendown;
ToPoint(2,8);
ToPoint(8,8);
ToPoint(5,11);
penup;
topoint(4,6);
pendown;
ToPoint(6,6);
ToPoint(6,4);
ToPoint(4,4);
ToPoint(4,6);
end.