{$B-}
PROGRAM CKNAPSAC (INPUT,OUTPUT);
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}
 {پ–                                                            پ–}
 {پ–           گ”  —‌  ‰ب  ٹw  Œ¤  ‹†                           پ–}
 {پ–                                                            پ–}
 {پ–    چu    ژt    –¼  پF  –é   ‹v   ’|   •v                   پ–}
 {پ–                                                            پ–}
 {پ–    ٹw  گ¶  ژپ  –¼  پF  گ¯  –ى  Œ\  ژq                      پ–}
 {پ–                                                            پ–}
 {پ–    ٹw گ¶ ڈط ”ش چ†  پF  ‚Q ‚O ‚r ‚r ‚P ‚P ‚T ‚R             پ–}
 {پ–                                                            پ–}
 {پ–    ‘ه    ٹw    –¼  پF  “Œ    ٹC    ‘ه    ٹw                پ–}
 {پ–                                                            پ–}
 {پ–    ٹw •” ٹw ‰ب –¼  پF  —‌ ٹw •”   ڈî •ٌ گ” —‌ ٹw ‰ب        پ–}
 {پ–                                                            پ–}
 {پ–    ‰غ    ‘è    –¼  پF  ‚‹‚ژ‚پ‚گ‚“‚پ‚‹  ‚گ‚’‚ڈ‚‚‚Œ‚…‚چ      پ–}
 {پ–                                                            پ–}
 {پ–    ژg  —p  Œ¾  Œê  پF  ‚o  ‚پ  ‚“  ‚ƒ  ‚پ  ‚Œ              پ–}
 {پ–                                                            پ–}
 {پ–    چى    گ¬    “ْ  پF  ‚P ‚X ‚W ‚T ”N ‚X Œژ                پ–}
 {پ–                                                            پ–}
 {پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–پ–}



  CONST
    NN=100;
  TYPE
    CARGO=ARRAY[1..NN] OF INTEGER;
     MARK=ARRAY[1..NN] OF BOOLEAN;
  VAR
    N,C,K : INTEGER;
      S   : CARGO;
      SETT : MARK;
      I,J : INTEGER;
   MAXSUM : INTEGER;

{
EXTERNAL PROCEDURE KNAPSAC (N,C,K : INTEGER; VAR S : CARGO;
                            VAR  SETT : MARK; VAR MAXSUM : INTEGER);
}
{$I B:KNAPSAC.SRC}
  BEGIN
   READLN (N,C,K);
   FOR  I:=1  TO  N  DO  READ(S[I]);
   WRITELN(LST);
   WRITELN(LST,'-------------------------------------');
   KNAPSAC(N,C,K,S,SETT,MAXSUM);
   FOR  I:=1  TO  N  DO
     IF SETT[I]  THEN  WRITE(LST,S[I] :8);
   WRITELN(LST);
   WRITELN(LST,'MAXSUM=',MAXSUM)
  END.
