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