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

Var i, a, s, s2:integer;

begin

s:=0;

s2:=1;

for i:=1 to 10 do

begin

if (i mod 2=0) then s:=s+i;

if (i mod 2=1) then s2:=s2*i;

end;

inc (i);

writeln ('Сумма четных ', s);

writeln ('Произведение нечетных ', s2);

end.