Составьте программу, которая находит сумму четных чисел и произведение нечётных чисел в диапазоне от 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.