Пусть даны вещественные числа а1 , а2 , ..., аn

Пусть даны вещественные числа а1 , а2 , ..., аn. Если в результате замены
отрицательных членов последовательности а1 , а2 , ..., аn их квадратами
члены будут образовывать неубывающую последовательность, то получите сумму членов исходной последовательности; в противном случае
получите их произведение.
Решить с использованием подпрограмм.