Составить программу которая формирует массив из 9 случайных целых чисел на промежутке от -30,30 и вычислите:а) сумму отрицательных чиселб) произведение чётных чисел

var    mas: array [1..9] of integer;    summ, count: integer;    i: integer; begin     randomize;    summ := 0;    count := 1;    for i := 1 to 9 do    begin       mas[i] := random(-30, 30);       write(mas[i] : 4);       if mas[i] < 0 then summ := summ + mas[i];       if mas[i] > 0 then count := count * mas[i];    end;    writeln('');    writeln('Сумма отрицательных элементов: ', summ);    writeln('Произведение положительных элементов: ', count); end.