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

var a := array[1..10] of integer;

i: integer;

sch, snch: integer;

begin

writeln(\'Заполняем массив числами от 1 до 10\');

for i := 1 to 10 do a[i] := i;

writeln(\'Ищем сумму чётных элементов\');

for i := 1 to 10 do if a[i] mod 2 = 0 then sch := sch + a[i];

writeln(\'Ищем сумму нечётных элементов\');

for i := 1 to 10 do if a[i] mod 2 > 0 then snch := snch + a[i];

writeln(\'Сумма чётных элементов равна\', sch);

writeln(\'Сумма нечётных элементов равна\', snch);

end.