Составите пож программу и блок схему в Turbo Pascal

[Aidar19]

"Если в последовательности А1,... , А59 положительные и отрицательные элементы строго чередуются (+ - + - или - + - +), то найти средние арифметические значения элементов с четными и нечетными номерами. В противном случае найти число чередований знака среди элементов заданной последовательности. Для отладки программы исходный массив сформировать с помощью генератора случайных чисел."
Заранее Спасибо!