{tu viet lay phan nhap du lieu nhe}
	start:=1;{khởi tạo giá trị đầu dãy con}
	l:=0;
	start1:=1;
	l1:=0;{Xong quá trình khởi tạo}
	for i:=1 to n - 1 do {thực hiện duyệt toàn bộ dãy}
		begin
			if a[i] > a[i+1] then {kiểm tra xem dãy con đã kết thúc chưa}
				begin
					if l1 > l then {kiểm tra xem dãy con mới có dài hơn dãy đã lưu}
						begin
							l:= l1;{Xác lập dãy con dài nhất trong thời điểm kiểm tra}
							start:= start1;
						end;
					l1:= 0;{Đưa thông số dãy con tiếp theo về mặc định}
					start1:= i + 1;
				end
			else
				Inc(l1);{tăng giá trị biến l1}
                                  {Tăng độ dài dãy con thêm 1}
		end;	{In du lieu}