program timdaycon;
uses crt, dos;
type
	mang = array[1..100] of real;
var
	n, i, start, l , start1, l : byte;
	{khai bao them bien neu can}
begin
	{tu viet lay phan nhap du lieu nhe}
	start:=1;
	l:=0;
	start1:=1;
	l1:=0;
	for i:=1 to n - 1 do
		begin
			if a[i] > a[i+1] then
				begin
					if l1 > l then
						begin
							l:= l1;
							start:= start1;
						end;
					l1:= 0;
					start1:= i + 1;
				end
			else
				Inc(l1);
		end;	{In du lieu}
	For i:= start to start + l do
		Writeln('a[', i, '] = ', a[i]);
	Readln;
end;