Составить программу вычисления в одномерном массиве С произведения четных и положительных элементов и сумму элементов меньших 6

var   c:array [1..10] of integer;   i, even, positive, sumLessSix: integer; begin   randomize;   writeln ('Рандомный массив');   for i:=1 to 10 do begin     c[i]:= random(20)-10;     write (c[i],' ');   end; {for}   writeln;   writeln('Произведение четных чисел');   even:=1;   for i:=1 to 10 do     if c[i] mod 2 = 0  then     even:= even*c[i];   write(even,' ');   writeln;   writeln('Произведение положительных чисел');   positive:=1;   for i:=1 to 10 do     if c[i] > 0 then     positive:= positive*c[i];   write(positive,' ');     writeln;   writeln('Сумма элементов меньших 6');   positive:=1;   for i:=1 to 10 do     if c[i] < 6 then     sumLessSix:= sumLessSix+c[i];   write(sumLessSix,' '); end.