统计子序列数
[问题描述]
现有一个长度为 n、互不相同的正整数序列， 请你求出该序列中所有递增和递减子序列的
数目。
例如：整数序列 (7, 4, 6, 9, 8, 3, 5, 2, 1 ) ，可以分为 (7, 4)， (4, 6, 9 )， (9, 8, 3)，(3, 5), (5, 2, 1)这些递增和递减子序列，即：子序列的数目为 5。
【程序清单】

program sx201606;
  var n,i,s:integer;
  d:array[l..100] of integer;
begin
  readln(n);
  for i:=1 to n do read( d[i] );
    s:= 1 ;
	for i:=2 to n-1 do
	  if  （d[i]-d[i-1] ）* (d[i]-d[i+1]) >0 then inc(s) ;
   writeln(s);
end.