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

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 gt; 0 then snch := snch + a[i];

writeln(Сумма чётных частей одинакова, sch);

writeln(Сумма нечётных элементов одинакова, snch);

end.