еще рограмка delphi

[werus]

имеются 10гирь весом a1,a2,.. a10. обозначим через ck число способов которыми можно составить вес k т.е ck это число решений ур-я...
a1x1+a2x2+...+a10x10=k где xi может принемать значения 0 и 1(i=1,...,10) получить c0,c1,..c10