program Hello;
uses crt;
var a: array[1..100]of real;
    n,i,t,d,max, dau,cuoi:integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do
        read(a[i]);
    max:=0;
    for i:=1 to n do
        begin
            d:=0;t:=i;
            while (a[t]<a[t+1])and (t<=n) do
                begin
                    d:=d+1;
                    inc(t);
                end;
            if d> max then
                begin
                    max:=d;
                    dau:=i;
                    cuoi:=t;
                end;
        end;
    write('Cac gia tri lien tiep tang nhieu nhat la: ');
    for i:=dau to cuoi do write (a[i]:1:1, ' ');
    writeln;
    if max + 1 > n div 2 then
        write('Kinh te phat trien')
    else 
        write('Kinh te khong phat trien');
    readln;
    readln;
end.