Дан одномерный массив состоящий из n элементов.найти произведение и сумму элементов, квадрат которых больше 17

Const
  n=15;
var
  a:array[1..n] of integer;
  i,s:integer;
  p:real;
begin
  Randomize;
  Writeln('Элементы массива');
  s:=0; p:=1;
  for i := 1 to n do
  begin
    a[i]:=Random(21)-10;
    Write(a[i]:4);
    if sqr(a[i])>17 then begin s:=s+a[i]; p:=p*a[i] end
  end;
  Writeln;
  Writeln('Найдена сумма ',s,', произведение ',p)
end.

Тестовое решение:
Элементы массива
   8   0  -6  -9  -3  -7   4  -9   7  -1  -7  -8   1  -3  -5
Найдена сумма -36, произведение -53343360

Сноски отображаются в нижней части страницы, а концевая сноска в конце документа. На вкладке "Ссылки" выберите "Вставить сноску" или "Вставить концевую сноску". ... Введите нужные в сноски или концевую сноску.  (С)bЧтобы удалить сноску, установите курсор в тексте, по правую сторону от её индекса (цифры или литеры). 2. Нажмите 2 раза клавишу «Backspace» (длинная стрелочка влево, расположена над клавишей «Enter»).Для вставки концевой сноски нажмите клавиши CTRL+ALT+D. (D)Для вставки обычной сноски нажмите клавиши CTRL+ALT+FПервая версия была написана Ричардом Броди (Richard Brodie) для IBM PC, использующих DOS, в 1983 году. (А)

using namespace std;

#include <algorithm>

#include <iostream>

#include <vector>

#include <ctime>

int main() {

vector<int> arr;

srand(time(0));

int N = 10;

int min = 9999999, minIndex;

int average = 0;

for(int i = 1; i<=N; ++i) {

 arr.push_back(rand());

 cout << arr[i-1] << " ";

 if(arr[i-1]<min) {

  min = arr[i-1];

  minIndex = i-1;

 }

 average+=arr[i-1];

}

cout << endl << "Min: " << min << endl << "Average: " << average/N << endl;

swap(arr[minIndex], arr[arr.size()-1]);

for(int i = 1; i<=N; ++i) {

 cout << arr[i-1] << " ";

}

cout << endl << " > average: ";

for(int i = 1; i<=N; ++i) {

 if(arr[i-1]>average/N) {

  cout << arr[i-1] << " ";

 }

}

}