題目背景

uim神犇拿到了uoi的ra（鐳牌）後，立刻拉著基友小A到了一家……餐館，很低端的那種。

uim指著牆上的價目表（太低階了沒有選單），說：“隨便點”。

題目描述

不過uim由於買了一些輔（e）輔（ro）書，口袋裡只剩M元（M<=10000）。

餐館雖低端，但是菜品種類不少，有N種（N<=100），第i種賣ai元（ai<=1000）。由於是很低端的餐館，所以每種菜只有一份。

小A奉行“不把錢吃光不罷休”，所以他點單一定剛好吧uim身上所有錢花完。他想知道有多少種點菜方法。

由於小A肚子太餓，所以最多隻能等待1秒。

輸入輸出格式

輸入格式：
第一行是兩個數字，表示N和M。

第二行起N個正數ai（可以有相同的數字，每個數字均在1000
 
以內）。

輸出格式：
一個正整數，表示點菜方案數。

輸入輸出樣例

輸入樣例#1：
4 4
1 1 2 2
輸出樣例#1：
3

題解：這道題很簡單，跟01書包差不多，先用分f[0]作為初始化，什麼都不點的情況，然後f[j]表示當前吃完所有錢（j）的方案數，然後再加上點完這個菜後能吃完當前所有錢的方案數。

var a,f,b:array[0..10000] of longint;
    n,m,i,j:longint;
begin
  readln(n,m);
  for i:=1 to n do read(a[i]);
  f[0]:=1;
  for i:=1 to n do
   for j:=m downto
 
 b[i] do
   f[j]:=f[j]+f[j-a[i]];
   writeln(f[m]);
end.