Водномерном массиве посчитать произведение номеров максимального и минимального элементов среди положительных чисел. массив должен содержать не менее 20 чисел которые генерируются случайно

Pascalabc.net 3.4.0, сборка 1671 от 31.05.2018 внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   writeln('произведение равно ',(a.indexmin+1)*(a.indexmax+1)) end. пример n= 23 -7 30 27 -1 38 35 -7 -45 -29 39 -32 -4 -1 -15 15 13 19 21 26 14 -22 -15 15 произведение равно 80

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);