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

Решение задачи:Код написан в программе PascalABC.NET.Var C: array[1..100] of integer; i, n, k, v, sum, p: integer; begin randomize; //Генератора произвольных чисел.write(\'Введите размерность n = \');readln(n);write(\'Одномерный массив: \');k:=0;for i:=1 to n do begin C[i]:=random(-10, 10); //Заполнение массива произвольными значениями. write(C[i],\' \'); if (not odd(C[i])=true) and (C[i]>0) then k:=k+1; if C[i]<6 then v:=v+1; end;writeln;if k=0 then writeln(\'В массиве нет четных и положительных элементов одновременно.\') else begin p:=1; for i:=1 to n do if (not odd(C[i])=true) and (C[i]>0) then p:=p*C[i]; writeln(\'Произведение четных и положительных элементов равно \', p); end;if v=0 then writeln(\'В массиве нет элементов меньших 6.\') else begin sum:=0; for i:=1 to n do if C[i]<6 then sum:=sum+C[i]; writeln(\'Сумма элементов меньших 6 равна \', sum); end;end.