В начале урока физкультуры ученики 13А класса выстроились в ряд. Физрук Арсений любит порядок, но школьники опять встали не по росту. Он решил проучить их и выбрать какой-то хороший отрезок детей, и отправить их играть в волейбол, а остальных оставить выполнять нормативы. Хорошим отрезком детей Арсений называет такой непрерывный отрезок детей в ряду, что их рост строго убывает. Ученики любят волейбол, поэтому хотят понять, есть ли у них шанс оказаться в числе счастливчиков. Для этого каждый школьник хочет выяснить, как много людей может пойти играть с ним в волейбол, то есть найти длину наибольшего хорошего отрезка, содержащего его самого.
Выведите
n целых чисел через пробел, где i-е число — максимальная длина хорошего отрезка, содержащего школьника номер i.
Пример:
5
7 4 2 2 10
3 3 3 1 1
8
2 2 4 3 1 7 6 8
1 1 3 3 3 2 2 1
var i,j,k,n,x,y:integer;
begin
readln(n);
if n > 0 then
begin
read(x);
k := 1;
for i := 2 to n do
begin
read(y);
if y < x then k := k + 1
else
begin
for j := 1 to k do write(k,' ');
k := 1;
end;
x := y;
end;
for j := 1 to k do write(k,' ');
end;
end.