дан одномерный массив состоящий из 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