记录编号	213869	评测结果	AAAAAAAAAAA
题目名称	[USACO Mar07] 焰火表演	最终得分	100
用户昵称	gg	是否通过	通过
代码语言	Pascal	运行时间	0.107 s
提交时间	2015-12-13 16:54:19	内存使用	2.07 MiB

    var
    a,c1:array[1..200]of longint;
    b:array[0..2000000]of char;
    c,ti,n,z,y,i:longint;
    begin
    assign(input,'fireshow.in');
    assign(output,'fireshow.out');
    reset(input);
    rewrite(output);
    read(c,n);
    for i:=1 to c do
    read(a[i]);
 
    for i:=1 to c do
    begin
    y:=0;
    while y<=n do
    begin
 
    b[y]:='1';
    y:=y+a[i];
    end;
    end;
      for i:=1 to n do
      if b[i]='1'  then z:=z+1;
      write(z);
    close(input);
    close(output);
    end.