Question

Нужно написать в паскале uses Drawman хз как делалть, даю 40 баллов

Answer 1

uses Drawman;
procedure Berry;
begin
field(14, 13);
  topoint(2, 1);
  pendown;
  topoint(1, 2);
  topoint(1, 3);
  topoint(2, 4);
  topoint(3, 4);
  topoint(4, 3);
  topoint(4, 2);
  topoint(3, 1);
  topoint(2, 1);
  penup;
  topoint(6, 1);
  pendown;
  topoint(5, 2);
  topoint(5, 3);
  topoint(6, 4);
  topoint(7, 4);
  topoint(8, 3);
  topoint(8, 2);
  topoint(7, 1);
  topoint(6, 1);
  penup;
 
end;
procedure Leaf;
begin
topoint(3,4);
pendown;
topoint(6,10);
topoint(4,12);
topoint(2,12);
topoint(4,10);
topoint(8,10);
topoint(10,8);
topoint(8,8);
topoint(6,10);
topoint(6,4);
end;
begin
  Berry;
  Leaf;
end.