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

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