Написать программу на паскале (максимально просто)дан массив из n элементов. к найти сумму элементов наибольшей возрастающей последовательности подряд идущих элементов массива.например: (1 15) (3 14 21 36 71) 2 найти их сумму, какая будет больше, ту и вывести, последовательность, должна быть возрастающей и в ней должно быть наибольшее количество элементов.

Sub aaa()
    n = CInt(InputBox("n="))
    x = CDbl(InputBox("x="))
    sx = Cos(x)
    s = sx
    For i = 2 To n
        sx = Cos(sx)
        s = s + sx
    Next i
    MsgBox s
End Sub

1.байт=12288 кб=12288
2.27*3 =81 строка
   81*90=7290 символа 
   7290*256=1866240 вроде бы это но точнее 7290 вроде

4030102
4030102 переведем в двоичную систему
4030102 (0)
2015051 (1)
1007525 (1)
503762 (0)
251881 (1)
125940 (0)
62970 (0)
31485 (1)
15742 (0)
7871 (1)
3935 (1)
1967 (1)
983 (1)
491 (1)
245 (1)
122 (0)
61 (1)
30 (0)
15 (1)
7 (1)
3 (1)
1
ответ 1111010111111010010110
не бейте тапками если неправильно, плес

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
  var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
  Writeln(s) // вывод...
end.

Пояснения.
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при помощи JoinIntoString.

Пример
А роза упала на лапу Азора
А роза на лапу Азора