Заполнить одномерный массив 5 элементами случайным образом в диапазоне от -10 до 10 .вычислить произведение элементов массива .произведение -288

//PascalABC.Net
//(c) NaaMan

var
    a : array of integer;
    n, i : integer;
    p : real;
begin
    n := 5;
    a := new integer[n];
    a := ArrRandom(n, -10, 10);
    
    p := 1;
    for i:= 0 to n-1 do
        if a[i] < 0 then p *= a[i];
    println(a);
    writeln('Произведение всех отрицательных равно ', p)
end.