Ввести одномерный массив A из 15 элементов. Определить в нём среднее геометрическое модулей отрицательных элементов

var    A:array[1..15] of integer;   i,P,C: integer; begin  for I:=1 to 15 do begin     write (i,'введите элемент массива: ');     readln(A[i]);   end;   P:=1; C:=0;  for I:=1 to 15 do      if A[i]<0 then begin       C:=C+1;      P:=P*abs(A[i]);     end;  write('среднее геометрическое модулей отрицательных чисел =', P/C); end.