Сделайте программу в Паскале пожалуйста
1.Одномерный массив случайных целых чисел от 1 до 40 из диапазона от -40 до 60 .
Определить сумму элементов , номера которых - числа фибоначчи .
2 Дан целочисленный массив из 30 элементов , значение которых принадлежит от -10000 до 10000 . Определить количество пар элементов , сумма которых нечётна и отрицательна . Пара - два подряд идущих элемента . - max длину последовательности рядом стоящих элементов упорядоченных по неубыванию .