FileBlockShemEditorV2WYPR"P$R*U,WYU[W*,Work:=True; l:=0; Top:=0; SumT:=Sum; m:=n;;Sy|end;`yvWork;yno-?yesubegin;1yG "XZ "(SumT0),no0yesm:=m-1<><>m=0:xno,>yest57wywy<>SumT:=SumT+A[Stack[Top]];(d5Top>0)no yes Work:=False;Y2?vKxMKMvxStack[Top]:=Stack[Top]-1;m:=Stack[Top]-1; SumT:=SumT-A[Stack[Top]];H[uStack[Top]>1@fXnoEOyesbEtOTop:=Top-1; SumT:=SumT+A[Stack[Top]];\*p8:8:Work:=False;XTop=0{noyes(Stack[Top]:=Stack[Top]-1; m:=Stack[Top]-1; SumT:=SumT-A[Stack[Top]];68@B @Bsus6u8Top:=Top+1no0:yes0:Stack[Top]:=m; l:=l+1; i:=1; s:='';Rs(SumT=A[m]) and(m>0)$J3v5x35Results[l]:=s; m:=m-1;i<=Topnoyes%s:=s+','+IntToStr(Stack[i]); i:=i+1 ~.0202Stack[Top]:=m; SumT:=SumT-A[m];m:=m-1;m<>0noyesTop:=Top-1; SumT:=SumT+A[Stack[Top]]; Stack[Top]:=Stack[Top]-1; SumT:=SumT-A[Stack[Top]]; m:=Stack[Top]-1;P)-)-( A$SR"!2915395443626106#-   '#>?@>AE?UE@:D;zffK==<<;E:!'+*`$ $  HIJHDOLGGFF]IKLJOLtfffaQ)0(,*h,+"wQXPTRXTS_UQUP procedure Rucksack(N,Sum:integer;A:array[1..N] of integer;var L:integer;Results:array[1..L] of string;) , .. A, Sum. Results, . A . L .r&