Задача - куча камней.

[_-Re@l-_]

Да нету времени объяснять
Как бы вот решение. Кстати, написано не мной

var
   i,j,n,min,s,m: integer;
   orobiti: array  [0..20] of integer;
   a:array [1..20] of integer;
begin
    read (n);
    min:=0;
    for i:=1 to n do
      begin
         read(a[i]);
     min:=min+a[i];
      end;
    while orobiti [0]<>1 do
    begin
       j:=n;
       while orobiti[j]=1 do
       begin
         orobiti[j]:=0;
         j:=j-1;
       end;
       orobiti[j]:=orobiti[j]+1;
       m:=0;
       s:=0;
       for i:=1 to n do
       begin
         if orobiti[i]=0 then
       s:=s+a[i]
     else
           m:=m+a[i];
       end;
       if abs (s-m)< min then
          min:=abs(s-m);
    end;
   writeln (min);
end.

[_Bers]

Сообщение от _-Re@l-_

Да нету времени объяснять
Как бы вот решение. Кстати, написано не мной

Ну так и скажи: что слизал откуда-то готовенькое, а как это работает - даже не вникал поди