Дана последовательность целых чисел. Построить последовательность номеров позиций, откуда начинаются последовательности подряд идущих значений, расположенных в порядке убывания (в такой последовательности должно быть как минимум 2 элемента).
Вход
В каждой строке входа дано по одному элементу исходной последовательности. Признак конца последовательности - 0.
Выход
В каждую строку выхода вывести по одному элементу результирующей последовательности. Заключительный нуль в результат не выводить.
Пример
Вход:

4
5
4
3
8
3
5
2
0
Выход:

2
5
7

Код

var a:array[0..1000] of integer; mas:array[1..1000] of word; nomer:word; i:word; t:integer; n:word; nmas:word; begin a[0]:=-maxint+1; t:=a[0]; i:=0; while t<>0 do  begin    readln(t);    if t<>0 then     begin       inc(i);       a[i]:=t;     end;  end; n:=i; for i:=2 to n do  begin    if (a[i]<a[i-1]) and (a[i-1]>=a[i-2]) then     begin       inc(nmas);       mas[nmas]:=i-1;     end;  end; for i:=1 to nmas do  writeln(mas[i]); end.