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

var i,a,s,s2:integer; begins:=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.