Stuff

  {
  c - viso nariu
  a - reikiama suma
  S - suma(x)
  i - elemento id
  r[i] - elemento reiksme pagal id
  Gv - ankstesniu pliusu masyvas
  Gvt - einamos eilutes pliusu masyvas
  }
  for i := 1 to c do
  begin
    for S := 0 to a do
    begin
      if (S = 0) then G[i,S] := true
      else if (r[i] = S) then
      begin
        G[i,S] := true;
        Gvt[S] := true;
      end
      else if (S-r[i] > 0) and (Gv[S-r[i]]) then
      begin
        G[i,S] := true;
        Gvt[S] := true;
      end
      else
        G[i,S] := false;
    end;
    Gv := Gvt;
  end;