导弹拦截怎么做？

描述 Description
某国为了防御敌国的导弹袭击，研发出一种导弹拦截系统。但是这种导弹拦截系统有一个缺陷：虽然它的第一发炮弹能够到达任意的高度，但是以后每一发炮弹都不能高于前一发的高度。某天，雷达捕捉到敌国的导弹来袭。由于该系统还在试验阶段，所以只有一套系统，因此有可能不能拦截所有的导弹。
输入格式 Input Format
输入数据只有一行，该行包含若干个数据，之间用半角逗号隔开，表示导弹依次飞来的高度（导弹最多有 20 枚，其高度为不大于 30000 的正整数）。
输出格式 Output Format
输出数据只有一行，该行包含两个数据，之间用半角逗号隔开。第一个数据表示这套系统最多能拦截的导弹数；第二个数据表示若要拦截所有导弹至少要再添加多少套这样的系统。
样例输入 Sample Input
389,207,155,300,299,170,158,65
样例输出 Sample Output
6,1
时间限制 Time Limitation
每个测试点限时 1 秒。

（能不能用最长不下降原理做，如果能，请附pascal源程序）

先精密计算出从发射到击中目标的精确时间和距离。

争议先要分清楚来袭的导弹是弹道导弹还是巡航导弹。弹道导弹有他的“固定”发射轨迹，但一般数度较高，易于在先期拦截，使用计算机进行轨道计算，计算出拦截的焦点即拦截点，最后发射拦截导弹。而巡航导弹就不同了，他是多级的，而且可以是多方式制导，由地面或者导弹自行进行变轨攻击，所以拦截难度就加大了。

编程都出来了，强！！！！！！！！！！

反导系统由多种装置组成。电磁探测、激光探测、红外探测，这些探测器可装在车上、军舰/艇上、卫星上等，探测到导弹后在零点几秒内进行捕捉，捕捉完毕后可对该导弹进行电磁干扰等，然后发射一颗足以摧毁该导弹的小导弹。导弹拦截系统不仅可以拦截导弹，也可以拦截敌方“失明”的飞行器。这些是基本原理，但具体怎么拦截，是跟核武机密的级别差不多的，所以无从获知。 美国已经研制出激光拦截导弹的系统（激光反导系统），那个系统装在一个很大的飞机上(也可装在地面)，可向几十公里外的导弹进行摧毁（发射高能激光波束），所以它不仅是可以到处飞行的反导系统，还有“空中航母”之称。所以为什么中国要研制大飞机的原因。

来，让我萧风冷月给你解一下：var st:string; d:array[1..240]of string; e:array[1..240]of string; a:array[1..4000]of longint; b,c:array[1..4000]of longint; i,n,m,j,code,s:longint; begin assign(input,'ddlj.in'); reset(input); assign(output,'ddlj.out'); rewrite(output); readln(st); m:=length(st); j:=1;n:=1; for i:=1 to m do e[i]:=st[i]; for i:=1 to m do begin if e[i]=','then begin for s:=j to i-1 do d[n]:=d[n]+e[s]; n:=n+1; j:=i+1; end; end; for s:=j to m do d[n]:=d[n]+e[s]; for i:= 1 to n do val(d[i],a[i],code); m:=0; for i:=1 to n do b[i]:=1; for i:=1 to n do for j:=1 to i-1 do if (b[i]m then m:=b[i]; write(m); m:=0; for i:=1 to n do c[i]:=1; for i:=1 to n do for j:=1 to i-1 do if(c[i]a[j]) then c[i]:=c[j]+1; for i:=1 to n do if c[i]>m then m:=c[i]; write(',',m-1); close(input); close(output); end.