//найти максимум мнотонности в последовательности,
//заканчивающейся нулем

var i,k,mpos,mneg,mnt,mpt: integer;
begin
  mpos:=0;
  mneg:=0;
  mnt:=0;
  mpt:=0;
//считывание последовательности
  writeln('последовательность:');
  readln(k);
  i:=k;
  while i<>0 do
  begin
    if i>=k then 
    begin
      if mnt>0 then 
      begin
        if mnt>mneg then mneg:=mnt;
        mnt:=0;
      end;
      if i>k then mpt:=mpt+1; 
    end;
    if i<=k then 
    begin
      if mpt>0 then
      begin
        if mpt>mpos then mpos:=mpt;
        mpt:=0;
      end;
      if i<k then mnt:=mnt+1;
    end;
    k:=i;
    readln(i);
  end;
  writeln('максимальная длина монотонности: ',max(mpos,mneg)+1);
end.

Результат:

последовательность:
1
2
3
2
2
5
7
9
11
11
10
0
максимальная длина монотонности: 5