3 interface
4 const
21 implementation
23 var
28 begin
33 begin
38 begin
43 begin
48 begin
54 begin
56 begin
62 //Добавить предмет в инвентарь, возващает количество не полученых предметов.
64 var
66 begin
67 //Ищем такой же предмет только если он имеет возможность делиться
70 begin
77 begin
82 begin
90 exit;
96 begin
102 begin
111 exit;
118 var
120 begin
122 begin
129 var
131 begin
133 begin
140 var
142 begin
144 begin