Дерево на рисунке показывает, как на елке развешаны украшения.выполни с путешественником алгоритм-отметь объекты которые он изучит.

Нет никакого файла, не могу решить.

Var   a: array[1..100] of integer;   n, i, maxlen, len: integer;   begin   write('введите длину последовательности n: ');   read(n);   write('введите последовательность: ');   for i : = 1 to n do read(a[i]);   len : = 1;   for i : = 2 to n do       if a[i - 1] < = a[i] then inc(len)       else       begin           maxlen : = max(len, maxlen);           len : = 1;       end;   write('максимальная длина возрастающей последовательности: ', max(maxlen, len)); end.

// pascalabc.net 3.0, сборка 1160 от 05.02.2016 begin   var a: =arrrandom(readinteger('n='),1,9); a.println;   var maxl: =0; // максимальная из длин   var currl: =1; // текущая длина   for var i: =1 to a.length-1 do       if a[i]> =a[i-1] then inc(currl)       else begin           if currl> maxl then maxl: =currl;           currl: =1           end;   if currl> maxl then maxl: =currl;   writeln('максимальная длина ',maxl); end. тестовое решение: n= 15 4 2 4 4 1 1 1 7 4 9 4 4 5 4 7 максимальная длина 4