CalculSume

#include <fstream>
#define MOD 9973
#define N 101
using namespace std;
ifstream f("calculsume.in");
ofstream g("calculsume.out");
int n,k,a[N],S[N][N];

int main()
{
    f>>n>>k;
    for(int i=1;i<=n;++i)
        f>>a[i];
    for(int i=0;i<=n;++i)
        S[i][0]=1;
    S[1][1]=a[1];
    for(int i=2;i<=n;++i)
        for(int j=1;j<=i;++j)
            S[i][j]=((a[i]*S[i-1][j-1])%MOD+S[i-1][j])%MOD;
    g<<S[n][k];
    return 0;
}