闺女求天女，更阑意未阑。
玉庭开粉席，罗袖捧金盘。
向月穿针易，临风整线难。
不知谁得巧，明旦试相看。
——祖咏《七夕》
女子乞巧，是七夕的重头戏。古时，女子擅长女红被视为一种重要的德行。所以女孩子们纷纷在七夕这天祈求上天，是自己变得更加灵巧。仰头凝视，以虔诚的心去膜拜桂魄；双手合十，用坚定信念去盼望未来，祈求能有更出众的才能。一根针、一丝线 、一轮月、一束影，组成了一个简单的乞巧仪式。
“年年岁岁花相似，岁岁年年人不同。”千百年后的今天，女孩子们更加看重自己的才华与能力。韵哲君参加了一个新乞巧活动：
韵哲君发现自己的面前有一行数字，当她正在琢磨应该干什么的时候，这时候，陈凡老师从天而降，走到了韵哲君的身边，低下头，对她耳语了几句，然后飘走了。
陈凡老师说了什么呢，且听下回分解。
接上回书，陈凡老师原来对韵哲君说了这些话：“还记得我传授给你的不下降子序列吗？你现在只要找出一定长度的不下降子序列的种数，你就完成任务了。”
好了，不废话了，你也来做做这个活动吧？
Input
第一行有两个整数N(0N表示给出多少个整数，M表示给出的定长；
第二行有N个整数，对于每个数字(-10000<=T[i]<=10000)。
Output
输出一个整数，在给出的数列中定长不下降子序列的种数。
Sample Input
10 5
1 2 3 4 5 6 7 8 9 10
Output
252
【参考程序】：
var n,k,i,j,d:longint;
f:array[1..100,1..20]of int64;
a:array[1..100]of longint;
ans:int64;
begin
//while not eof do
//begin
read(n,k);
for i:=1 to n do read(a[i]);
fillchar(f,sizeof(f),0);
for i:=1 to n do f[i,1]:=1;//初始化全部一层的只有1
for i:=2 to n do // 人数
for j:=2 to k do //层数
for d:=1 to i-1 do
if a[i]>=a[d] then //如果构成不降序列则把d全部的种数给i
f[i,j]:=f[i,j]+f[d,j-1];
ans:=0;
for i:=1 to n do //全部种数累加起来就是答案
ans:=ans+f[i,k];
writeln(ans);
//end;
end.