#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;
ifstream f("dezastru.in"); ofstream g("dezastru.out");
int n,m,v[20],k;
double val[30],s;
int main()
{
    f>>n>>m;
    for(int i=1;i<=n;++i)
    {
        f>>val[i];
    }
    int k=1;
    while(k>0)
    {
        if(v[k]<n)
        {
            ++v[k];
            if(k==m)
            {
                s+=(val[v[1]]*val[v[2]]);
            }
            else
            {
                ++k;
                v[k]=v[k-1];
            }
        }
        else --k;
    }
    for(int i=2;i<=n;++i)
    {
        s/=i;
    }
    s*=m;
    g<<setprecision(6)<<s;
    return 0;
}