{Знайти найменше та найбўльшў числа в цўлочисельному масивў А[1..N],
якў можна подати сумамў елементив даного масиву(30 балўв)}
program suma;
label x;
const n=6;
      a: array[1..6] of integer=(3,5,2,4,88,24);
var i,j,k, max, r,m, su: integer; s: array[1..100] of integer;

procedure vpered;
begin
  j:=j+1;
  su:=su+a[j];
end;
procedure nazad;
begin
  if j<1 then halt;
  su:=su-a[j];
  j:=j+1;
  su:=su+a[j];
end;


begin
  writeln;
  for i:=1 to n-1 do
    begin
      max:=a[i]; k:=i;
      for j:=i+1 to n do
        if a[j]>max then begin max:=a[j]; k:=j end;
      r:=a[i];
      a[i]:=max;
      a[k]:=r;
    end;

  for i:=1 to n do
    write(a[i],' ');
  writeln;
  writeln;

  i:=1;
  while i<n do
    begin
      m:=a[i];
      j:=i+1;
      su:=a[j];
      while su>0 do
        begin
          if su=m then begin writeln(m); goto x end;
          if j>n then halt;
          else begin
                 if (su<m) and (j<n) then vpered
                 else begin nazad; if j<1 then break end;
                 if j>n then j:=j+1;
              end;
       end;
   x:   i:=i+1;
    end;
end.